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ABSTRACT 


A theoretical study has been conducted to design and evaluate two air- 
foils for helicopter rotors. The best basic shape, designed with a 
transonic hodograph design method, was modified to meet subsonic cri- 
teria. One airfoil had an additional constraint for low pitching- 
moment at the transonic design point. Airfoil characteristics were 
- - -predicted. -Results of- a comparative- analysis- of-helicopter perform-^ - 
ance indicate that the new airfoils will produce reduced rotor power 
requirements compared to the NACA 0012, 

The hodograph design method, written in CDC Algol, is listed and de- 
scribed. 
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' SUMMARY. 


The work presented in this report was done under NASA Contract NASW-2334. 
This contract was awarded to Bell Helicopter Company (BHC) for an analyt- 
ical study with the objective to define two specific airfoil shapes for 
helicopter rotors. These shapes were to be designed to satisfy two tran- 
sonic design requirements established by the high speed forward and 
maneuvering flight conditions without compromising the subsonic require- 
ments dictated by the hovering condition. 


BHC subcontracted the design portion of the contract to the National 
Aerospace Laboratories (NLR) in the Netherlands. NLR combined their 
transonic hodograph design method with the multiple requirement design 
approach developed by Dr. F. X. Wortmann for BHC. Two airfoil sections 
were developed and their corresponding subcritical, aerodynamic proper- 
ties were predicted. One airfoil had a maximum allowable pitching 
moment coefficient, while the other had no such restriction. BHC then 
added to the aerodynamic data supplied by NLR by estimating comparable 
data for the supercritical flight conditions. Using the combined data, 
performance calculations were made for hover, high speed forward flight, 
and maneuvering flight. All performance calculations exhibited an 
improvement over a conventional, contemporary rotor blade section for 
all three flight regimes. 

The report contains recommendations for further airfoil optimization and 
future experiments to verify the analytical predictions. 
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In recent years it has become evident that the design requirements for heli- 
copter rotor blade airfoil sections differ enough from those of fixed-wing 
aircraft to justify an independent development program. As a result, ana- 
lytically designed airfoils tailored to optimize hover, maneuver, and high 
speed performance simultaneously are now in use and have been tested on full- 
scale rotors (BHC Airfoil Section FX69-H-098). 

Contractor efforts in this field were greatly accelerated as a result of the 

— contributions— by-Dr-. — F~ X t -W or tmann— (-Prof ess or-at- Stuttgart' University-)-— con- 

sultant to Bell Helicopter Company (BHC). Dr. Wortmann's design approach re- 
quires specification of key operating conditions for which optimum perform- 
ance is sought. Those operating conditions are then expressed as specific 
design points (see Table I). The computerized airfoil design method is then 
used to determine the incompressible, viscous, velocity distributions for the 
given set of design conditions. By determining the elements of the airfoil 
contour principally involved in attaining the design inputs, an airfoil can 
usually be found that will excel at each of the desired design conditions. 

Figure 1 shows a typical example of an airfoil designed in this manner. 

Incompressible flow fields were used to achieve the above results. However, 
the high g maneuver (high c^, moderate M ) and the high-speed forward flight 
(low c ^ , high M & ) requirements involved analysis in the transonic speed range. 

Dr. Wortmann supplemented his above analysis with the "peaky" approach 
developed by Pearcey (Ref. 1). With this method, he used the principle of 
the "peaky" pressure distribution for both of the transonic design conditions 
to reduce the strength of the shockwaves. 

This study was conducted as a continuation to the preceding study. One of 
the main objectives of this program was to try to further reduce or even 
eliminate the shockwaves at the two transonic design points by using ad- 
vanced computational methods for transonic flow. In order to do this under 
NASA contract, BHC subcontracted the National Aerospace Laboratories (NLR) 
to develop two airfoil sections using their hodograph technique for quasi- 
elliptical airfoils. BHC assisted NLR by supplying detailed information 
concerning the method used by Dr. Wortmann and the airfoil he developed 
(FX69-H-098) , as well as the design requirements for the two new sections 
(see Table II). 

The specific objectives of this study are fourfold: 

(X) Determine if it is possible to design, analytically, an airfoil that fulfills 
the two transonic design requirements (maneuver and high speed flight) of 
Table II while simultaneously satisfying stringent subsonic requirements 
(hover). And, if this is possible, develop two sections that both satisfy 
the same transonic requirements, but with one having a restricted pitching 
moment. 

(2) Determine if the transonic hodograph theory for lifting quasi-elliptical 
airfoils is a convenient tool for achieving objective (1). 

(3) Determine the aerodynamic performance penalties incurred by the require- 
ment for small pitching moment coefficients usually imposed for rotary 
wing airfoils. 
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(4) Predict the rotor performance benefits that may be expected from the 

improved airfoil sections in hover, high-speed flight, and maneuvering 
flight when compared to the performance produced by a rotor having an 
NACA 0012 or an FX69-H-098 section. 

It is felt that some additional comments are needed concerning objectives 
(3) and (4). For objective (3), it is stressed that the penalties in- 
curred by the pitching moment requirements are not to be analyzed from a 
control load standpoint, but rather from a performance standpoint. For 
objective (4), it is noted that all performance predictions are for the 
same mathematical rotor model with changes occurring only in the airfoil 
data, The mathematical model used a rigid blade, teetering, type rotor 
system. All performance should be considered from a "relative" rather 
than an "absolute" point of view. 
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• II. - SUMMARY OF NLR WORK 

A. Introduction 

The following is a brief discussion of the work performed by NLR. The complete 
discussion and analysis are found in Appendix A, "An Aerodynamic Design Study 
for Rotor Airfoils", and Appendix B, "ALGOL Programs for the Computation of 
Quasi-Elliptical Shock-Free Transonic Aerofoils". In summary, the technique 
used by NLR consisted of first using the hodograph method to obtain a series of 
shock-free shapes, select from this series the shape that appears most promis- 
ing with respect to the other requirements, and then modifying this shape by 
means-of -a-triaT-and^error method -to -further-optimize-f or-other-requirements'. 

B. Airfoil Development 

Following the receipt of the design requirements (see Table II), as Well as 
the data and information concerning the methods used by Dr. F. X. Wortmann in 
developing the FX69-H-098 section, NLR began design of the required sections. 
Initially, two approaches were considered. The first consisted of developing 
a basic section that satisfied the high Mach number - low c^ requirement and 
then modifying this section to improve the high c^- moderate Mach number re- 
quirements. The second approach was to develop the high - moderate Mach 
number section and modify this section to improve its high Mach number - low 
c& characteristics. 

Work was performed using both methods; however, it was soon concluded that the 
first approach was the most desirable. By selecting this method, the hodo- 
graph program was given the responsibility of developing the larger portions of 
the sections. This left the smaller segment of the section to be modified by 
hand- fitting techniques. 

All of the above work was done using the hodograph program with the four basic 
input parameters: (1) Mach number control (M a ), (2) Circulation control (T), 

(3) Angle-of-attack control (a), and (4) Thickness control (e). A basic sec- 
tion, designated the NLR 7216 section, was developed using the program and 
these control parameters. It was soon realized from analyzing the pressure 
field and surface curvature distribution, however, that more leading-edge 
droop would be needed to satisfy the maximum requirement. In order to 
achieve this, two additional control parameters, 7.^ and the values of which 
were so far set equal to zero, were made operational. The first parameter con- 
trols the leading edge bluntness and the second controls the leading-edge droop. 

With these modifications, a satisfactory basic section (NLR 7223) was developed. 

The final two sections (NLR 7223-62 and NLR 7223-43) shown in Figure 2 evolved 
after considerable modifications were attempted using trial-and-error tech- 
niques. Each attempt was checked by both subsonic potential and viscous flow calcula 
tions in addition to other empirical methods. These hand-fitting techniques 
yielded sections that were modified in the following approximate areas: 

Upper Surface: 0 to 0.02 x/c 

0.70 to 1.00 x/c 
Lower Surface: 0.60 to 1.00 x/c 
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Both airfoil sections were obtained as described above. Different contours 
and velocity fields resulted, however, for the two sections due to the differ- 
ent pitching moment requirements. In designing both sections, care had to be 
exercised that the resulting velocity field would not endanger the boundary 
layer development on both the upper and lower surfaces and possibly cause 
premature separation. 

C. Aerodynamic Data Calculations 

Once the development of the two sections was complete, aerodynamic data were 
calculated and estimated for the off-design conditions. For these conditions, 
where attached flow was believed to exist, NLR used several methods combined 
in a single computer program (Reference 23*). This program calculates a po- 
tential flow field using the method of Reference 18*. The flow field is then 
combined with the boundary layer calculation methods of references 20*, 21*, 
and 22*. The drag values are then calculated using the method described in 
Reference 24*. All the above calculations are limited to subcritical, fully- 
attached flows. 

NLR used two procedures combined with the FX69-H-098 experimental data for 
estimating maximum lift coefficients. Both methods provided estimated, in- 
cremental maximum lift coefficient values that were used with the experimental data. 

Both methods were based on and limited by the assumption that the stall mech- 
anism for the new sections was similar to that of the FX69-H-098 airfoil. For 
the first method incremental coefficient values were estimated by noting the 
relation of minimum pressure as a function of lift coefficient at the critical 
pressure value (see Figure 15*). For the second method incremental values were 
determined by utilizing Sinnott's cirterium (Reference 25*) in relation to the 
crest pressure expressed as a function of lift coefficient (see Figure 16*). 

Table III shows a summary of both the design objectives and the values clacu- 
lated, or estimated, by NLR. 


l 


Appendix A reference number 
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III. AERODYNAMIC SECTION DATA. 


A. Presentation of Data 

c.-of, and c^-c^ data are shown in Figures 3 through 14 for the NACA 0012, 
FX69-H-098, NLR 7223-62, and NLR 7223-43 airfoil sections. For convenience, 
these sections will be referred to as the 0012, 098, Airfoil 1, and Airfoil 2 
sections, respectively. 

Three types of data are shown in these figure's: experimental data (0012 and 

“098— sec tions-)-,— -NLR— data- (Airfoil— 1—- and- Ai-rfoi-1— 2- sections -and— BHC— data- (^-bi- 
sections). Where discrepancies exist between NLR and BHC data, NLR data was 
used in the performance calculations. Likewise, the test data always took 
precedence over any calculated data. 

1. Experimental Data . The experimental data for the 0012 section were ob- 
tained from Reference 2, and that for the 098 section from tests con- 
ducted by BHC at the United Aircraft Research Laboratories (Reference 3). 
These data were used in evaluating the calculation methods and in perform- 
ance predictions. 

2. NLR Data . The NLR data shown in Figures 9 through 14 were derived from 
both calculations and estimations with no distinction being made as to 
which was used. Figures 20 through 23 and 39 through 42 of Appendix A 
show this data in more detail. For a complete discussion on the methods 
and techniques used for determining these data see Section II of this 
report and Section 6 of Appendix A. 

3. BHC Data . Aerodynamic data were calculated and estimated by BHC using 
several different methods. These data were produced to supplement the 
experimental data as well as the NLR calculated data beyond Mach number 
and angle-of-attack values that were available to BHC from test or NLR 
predictions. Consequently, all BHC data were made to "fair-in" to the 
NLR or test data. 

B. Calculations 
1 . Basic Method 

The BHC basic method adds the c^-c^ results calculated from two computer 
programs. One program was developed for BHC by Dr. F. X. Wortmann and 
the other program was developed by Bauer, Garabedian, and Korn (Reference 
4). Dr. Wortmann’ s program utilizes an incompressible, two-dimensional 
flow for calculating flow fields around a given section. Boundary layer 
calculations are then made with transition occurring at the position 
where laminar separation would normally result for a Reynolds number of 
5 x 10 6 . 
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Only the "off-design" or analysis portion of the Bauer, Garabedian, and 
Korn transonic flow program was used.“ This program analyzes a given 
section in a two-dimensional, compressible, potential flow field. The 
resulting wave drag as a function of c^was added to the incompressible 
viscous drag obtained from the Wortmann program to obtain the total drag 
coefficient. The accuracy of this method is considered to be very good 
as shown in Figures 8, 11, and 14. The data calculated using this method 
agree very well with both the experimental data and the NLR calculated 
data . 

2 . Alternate Methods 

The BHC basic method as described above was used as long as the transonic 
flow program could obtain convergence. Once the program failed to con- 
verge for a given Mach number/angle-of-attack combination, then empirical 
methods had to be used. These methods are discussed below relative to the 
airfoils for which they were used. 

(a) 0012 Section . C(j - a data were obtained for M a equal to 1.0 by 
applying an incremental value to the data of Reference 2. These in- 
cremental data were obtained from unpublished 0012 test data at Mach 
numbers of 0.9 and 1.0. 

It was assumed that the c Qf relation remained unchanged for M a 
values between 0.9 and 1.0. 

(b) 098 Section , c^ - c^ data for M a values between 0.82 and 0.89 were 
calculated by the BHC basic method. These data were extrapolated to 
M a equal to 0.9. A similar extrapolation for minimum c^ is shown in 
Figure 15. The c^ - c^ data for M a equal to 1.0 were estimated by 
assuming the same incremental values as were used for the 0012 sec- 
tion. 

c ^ - a data for M a equal to 0.9 were obtained by extrapolating . the 
test data as shown in Figure 16. Again it was assumed that the c^-cr 
relation remained unchanged for M a between 0.9 and 1.0. 

Estimates for maximum c^ for M>0.7 are shown in Figure 17. It is 
believed that this extrapolation yielded conservative results. 

(c) NLR Sections . The same procedure was used for estimating the C(j - c ^ 
relation for these sections as was used for the 098 section for M a 
values through 0.9 (typical data are shown in Figure 15). For M a 
equal to 1.0 however, the c^ - C£ values for the 098 section were 
used rather than adding the 0012 incremental values to the NLR data 
at M a equal to 0.9. It was believed that this incremental method 
would have yielded too low of values for c^ when applied to the NLR 
sections . 


All calculations using this program were made with a crude grid 
mesh size and with the artificial viscosity parameter equal to 
zero. 
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The cj i~ a data for M a values between 0.7 and 0.9 were estimated by- 
extrapolating the data as shown in Figure 16, assuming that similar 
trends existed between the 098 and NLR sections. The same C £- a was 
assumed for both M a equal to 0.9 and 1.0. 

Similar assumptions were made for the extrapolation of the maximum 
C£ data shown in Figure 17. 
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IV. PERFORMANCE ANALYSIS 
A. Introduction and Assumptions 

Performance calculations were made for three flight modes: (1) hover, (2) high- 
speed forward flight, and (3) a steady-state pull-up maneuver. All perform- 
ance calculations were made using two BHC computer programs, ARSF03* and AGAJ68**. 
The hover and level flight performance was calculated with the first program 
and the maneuvering performance with the second. 

ARSF03 employs blade-element-momentum theory with non-uniform inflow for hover 
and axial flight, and uniform inflow for the other flight conditions. The ef- 
fects of stall, compressibility, and reverse flow are determined by utilizing 
two-dimensional airfoil data which specify aerodynamic characteristics throughout 
the angle-of-attack and Mach number range. Geometric characteristics are also 
specified at a given number of radial blade stations. Reference 5 provides fur- 
ther discussion of the theory. 

AGAJ68 is a BHC rotorcraft flight simulation analysis program and was used 
to simulate maneuvering flight conditions. Essentially, the program con- 
sists of a rotor aerodynamic and dynamic analysis coupled with a fuselage 
analysis which includes all six rigid-body degrees of freedom. Detailed 
descriptions of this program can be found in Reference 6. 

All calculations were made for sea level, standard day conditions along 
with the following rotor parameters: 


1. 

Radius = 

7.62 

meters (25 feet) 

2. 

Solidity = 

0.07 


3. 

Twist 

-8.0 

degrees 

4. 

Lock No. = 

7.0 



The NLR and BHC calculated aerodynamic section data, as shown in Figures 3 
through 14, were used for the performance analysis. For angles of attack 
greater than 16 degrees and less than -4 degrees (i.e., the reverse flow 
region) 0012 section data (Reference 7) were used and are shown in Figure 18. 
No compressibility effects were applied to these section data. 


A performance summary is found in Table IV for a typical 62 275 newtons 
(14 000-pound) class vehicle with 1.39 square meters (15 square feet) flat 
plate drag area and a rotor tip speed of 234.7 meters per second (770 feet 
per second). 

B . Hover Performance 

Figures 19 through 21 show hover performance for all four airfoil sections. 
These data were calculated for a thrust range of 35 586 to 80 068 newtons 
(8000 to 18 000 pounds) and hovering tip speeds of 226, 235, and 244 meters 
per second (740, 770, and 800 feet per second). 


v „ t? Formally known as the BHC F35 computer program 
Formally known as the BHC C81 computer program 
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Asstaming that a typical design hovering Ct^/s is approximately 0.065, it may 
be concluded that the 098 and NLR sections would yield approximately the same 
hovering performance. A power savings of approximately eleven percent would 
be realized over a rotor using the 0012 section. In dimensional form, this 
would be a savings of about 105 kw (140 hp), or a 6094 nt (1370 lb) increase 
in thrust. It should be noted for the hovering performance, and all other 
quoted performance, that the quoted values are a function of rotor tip Mach 
number. Care should be taken in applying these values to other design con- 
ditions. 

C . High-Speed Performance 

Figures 22 through 24 show predicted high-speed forward flight performance. 

For these calculations, an airframe flat plate drag area of 1.39 -square 
meters (15-square feet) and a gross weight of 62 275 newtons (14 000 pounds) 
was assumed. Again, rotor tip speeds of 226, 235, and 244 meters per second 
(740, 770, and 800 feet per second) were used, and data were calculated from 
80 to 180 knots. As noted for a rotor tip speed of 235 meters per second 
(770 feet per second) and 1268 kilowatts power (1700 hp), an increase of 11, 
20, and 23 knots can be realized over the 0012 section for the 098, Airfoil 2, 
and Airfoil 1 sections, respectively. Or, for a cruise speed of 150 knots, 
a fuel savings of 17, 28, and 33 percent would result. 

D. Maneuvering Performance • 

Maneuver performance is shown in Figure 25 for a steady state pull-out type 
maneuver at 150 knots. The data are shown as normalized equivalent horse- 
power* (Reference 8), versus the load factor. The horsepower data has been 
normalized to the 0012 data in the cruise condition. As shown, both the 098 
and NLR sections show an improvement over the 0012 with an increase of eight 
to eleven percent. This improvement seems to be nearly independent of load 
factor once the retreating blade begins to enter deep stall. As an example 
of retreating blade stall characteristics, it is noted that for a load factor 
of 1.8 that the entire retreating blade is beyond 20 degrees angle of attack 
for all four blade sections analyzed. 


’•Equivalent horsepower is the total horsepower supplied to the rotor whether 
by engine or the conversion of kinetic or potential energy to rotor power. 
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V.. CONCLUSIONS 


Two new helicopter rotor airfoil sections have been developed through a joint 
effort between NASA, NLR, and BHC. Concerning the four objectives of this 
study, the following conclusions have been made. 

Objective 1 : 

It is possible to design an airfoil analytically that fulfills the re- 
quirements for two transonic design points while satisfying stringent 
subsonic requirements. The two sections produced by NLR satisfy all the 
requirements except maximum c^ as shown in Table III. 

Objective 2 ; 

The transonic hodograph theory for lifting quasi-elliptical airfoils is 
a convenient tool for the design of such sections as described above. 

It was determined by NLR, however, that some "hand-fitting" of the basic 
shapes produced by the hodograph theory had to be done. This is ex- 
plained completely in Appendix A. Basically, a leading edge modification 
was applied with the objectives of increasing maximum c^, and a trailing 
edge modification for maintaining laminar flow and/or attached flow de- 
pending upon which surface was being modified. The trailing edge modi- 
fication was also used for controlling the pitching moment. 

Objective 3 : 

It was found that the only apparent penalty incurred by an airfoil sec- 
tion requiring a low pitching moment coefficient (Airfoil 1) is a slight 
reduction in maximum lift coefficient (1.30 to 1.25). It was also noted 
that . a potential gain may even exist for the low moment type section. 

This conclusion is based upon both NLR and BHC calculated c^ data at cj 
< 0.2. Both sets of data show the low moment section to have a higher 
drag divergence' Mach number. This fact may be clearly seen when the 
data in Figures 11 and 14 are compared for M a = 0.9. Also, the low 
moment section is showing a slightly lower value of c<j in the range of 
0.3 < c ^ <0.6 for M a < 0.6. 

From a performance standpoint, the two sections yielded nearly the same 
results with the high moment section (Airfoil 2) yielding slightly 
better results in the maneuvering flight mode. In the high speed flight 
mode a sufficient amount of the rotor had been subjected to the higher 
Mach number range (>0.9 ) in order for the improved Mach number charac- 
teristics of the low moment section to be felt (see Figures 23 and 24). 
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It was also noted that the low moment section yielded slightly better 
hovering performance as seen in Table IV. This is due to the lower 
values of c^ in the range of 0.3 < c^< 0*6 for M a <0.6. 

It is pointed out that care should be taken when comparing these or any 
other sections. A slight change in rotor tip Mach number, design lift 
point, or any number of other design requirements may cause a reversal 
of these conclusions. 

Objective 4: 

The differences in performance between the two NLR sections are described 
above. Both of these sections show considerable improvement over the 
0012 section. When compared to the 098 section the NLR sections show 
comparable or better performance in all three flight regimes. 

An additional fact has been discovered as a result of this study. It was 
noted by NLR that a characteristic "bump" resulted on the upper surface of the 
high speed sections. "It is believed that the presence of such a curvature 
peak is an essential feature of airfoils that must combine high speed and high 
maximum c^ performance in the way required for application in a helicopter 
rotor For a more complete discussion, see Appendix A. 
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VI. RECOMMENDATIONS 


The following recommendations are made as a result of this study. 

Conduct additional analytical studies to determine if further 
optimization of the NLR sections is possible with the two new 
control parameters (\i and A.2) and to explore in detail the 
influence of the upper surface curvature peak height and loca- 
tion (see Appendix A). 

Conduct steady state two dimensional transonic-tunnel tests 
to determine the accuracy of the prediction methods used in this 
study. These tests could include measurements on a model in a 
yawed . condition to determine the effect or sensitivity of these 
high speed sections to asymmetric flow conditions. 

Conduct two-dimensional oscillating transonic tests to determine 
the sensitivity of this type of high speed sections to unsteady 
flow conditions. 

Conduct rotational tests on a tail rotor size model to determine 
the section properties of the new airfoils under rotating conditions. 
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TABLE I . 

TYPICAL CONDITIONS FOR ROTOR AIRFOIL DESIGNS 


OPERATING CONDITION 

AIRFOIL DESIGN POINT 

SPECIFIED GOAL * 

Hover 

M = . 6 Cj = . 65 

c j /c d = 100 

(Max Gross , 


| 1 


Critical alt'i temp) 

M = . 6 c. = . 6 5 

C m < - 02 



(Conditions at 3/4R) 

m l/4 1 1 


High g - ", 

' M = . 5 

c ( > 1-25 

0 

Maneuver 

(Retreating blade 

max 

•r-f 


stall) 


0 




CO 

E 

High speed 

C 1 

M . > .80 


cruise 

(advancing blade 

drag rise > 



tip) 


'V 

Example:, pertaining to 

the conditions originally 

used to design 


the FX 69-H-098 airfoil 




TABLE II. 

DESIGN REQUIREMENTS FOR NEW AIRFOILS 


' FLIGHT 
CONDITION 

SPECIFIC 

QUANTITY 

' 

AIRFOIL I 
( low c ) 
m 

AIRFOIL 2 

(no c req ) 
m 

Hover 

M = .6 and c ( = .65 

V c d 

100 

100 


M = .6 and Cj = .65 

Cm l/6c 

<| 0.02 | 

no 

requirement 

Maneuver 

M t: . 5 

c i 

max 

> 1.35 
Shock free* 

> 1.35 
Shock free* 

High Speed 

c, ^ 0 

M 

> .85 

Shock free* 

> .85 

Shock free 1 



C d 

< .013 

< .013 

General 

2-D Test Condition 

Re 

5 x 10 6 

5 x 10 6 


Thickness Ratio 

% Chord 

*2 
A V 

r—4 

A V 

* This indicates the method used to 

obtain the 

listed design objective 
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TABLE III. 

AERODYNAMIC DATA SUMMARY 


FLIGHT 



DESIGN 

MAXIMUM 

DESIGN 

MAXIMUM 

CONDITION 

SPECIFIC 

QUANTITY 

OBJECTIVES 

OBTAINED 

OBJECTIVES 

OBTAINED 




(AIRFOIL 1) 

(AIRFOIL 1) 

(AIRFOIL 2) 

(AIRFOIL 2) 



M=.6, c^ = .65 

C i /C d 

100 

95 

100 

100 

Hover 

< 








1 

M= . 6 , c ( = . 65 

(O 

< |.02| 

-.015 

no 

-.046 



M C/4 



requirements 


Maneuver 

M ar.5 

C i 

>1.35 

1.25 

>1.35 

1.30 










, M 

> .85 

.85 

> .85 

.85 

High Speed 

c^0 









< .013 

.013 

< .013 

.013 - 



2-D Test 

Re 

5 x 10 6 

5 x 10 6 

5 x 10 6 

5 x 10 6 



Condition 






General 










Thickness 

7. Chord 

4 < t/c <15 

8.6 

4 < t/c < 15 

8.6 



Ratio 







TABLE IV. 

PERFORMANCE SUMMARY* 



COMPARISONS RELATIVE TO 0012 SECTION 

PERFORMANCE PARAMETER 

098 

AIRFOIL 1 

AIRFOIL 2 

Hover 




Hover Power Savings (7.) 
Conditions : 

C , = .065 

T /a 

11.1 

a . 4 

11.1 

High Speed 




(1) Increase in speed (knots) 
Conditions : 

1268 KW (1700 hp) 

11 

23 

20 

(2) Fuel savings (7.) 
Conditions : 
150 knots 

17.4 

- 

33.2 

27.8 

Maneuver 




Increase load factor (7«) 

Conditions : 

(1) Power tor a load factor 
of 1.60 with 0012 section 

(2) 150 knots 

9.5 

8.5 

11.2 


*Basic Flight Conditions:. Gross Weight = 62,272 nt (14000 lb) 

Flat Plate Drag Area = 1.39 (15 ft2) 

OR = 235 m/sec (770 fps) 
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Figure 3. NACA 0012 Aerodynamic Section Data, Lift Coefficient 
Versus Angle of Attack 
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Figure 4. NACA 0012 Aerodynamic Section Data, Drag Coefficient 
Versus Angle of Attack 
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Figure 5. NACA 0012 Aerodynamic Section Data, Drag Coefficient 
Versus Lift Coefficient 


20 


299-099-635 




LIFT COEFFICIENT 


Use or disclosure of data on this page is 
subject to the restriction on the title page. 



BELL 

HELICOPTER 


COMFWMV 



ANGLE OF ATTACK - DEGREES 


Figure 6. FX69-H-098 Aerodynamic Section Data, Lift Coefficient 

Versus Angle of Attack 
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ANGLE OF ATTACK - DEGREES 

Figure 7. FX69-H-098 Aerodynamic Section Data, Drag Coefficient 

Versus Angle of Attack 
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Figure 8. FX69-H-098 Aerodynamic Section Data, Drag Coefficient 

Versus Lift Coefficient 
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Figure 9. NLR 7223-62 (Airfoil 1) Aerodynamic Section Data, 
Lift Coefficient Versus Angle of Attack 
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Figure 11. NLR 7223-62 (Airfoil 1) Aerodynamic Section Data, 
Drag Coefficient Versus Lift Coefficient 
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Figure 12. NLR 7223-43 (Airfoil 2) Aerodynamic Section Data, 
Lift Coefficient Versus Angle of Attack 
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Figure 13. NLR 7223-43 (Airfoil 2) Aerodynamic Section Data, 

Drag Coefficient Versus Angle of Attack 
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Figure 14. NLR 7223-43 (Airfoil 2) Aerodynamic Section Data, 
Drag Coefficient Versus Lift Coefficient 
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Figure 15. Section Minimum Drag Coefficient Versus Mach Number 
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Figure 16. Section Lift Curve Slope Versus Mach Number 
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Figure 17. Section Maximum Lift Coefficient Versus Mach Number 
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Figure 18. NACA 0012 Section Data For Large Angles of Attack 


299-099-635 


33 























POWER - HORSEPOWER 


, bell 

HELICOPTER company 


Use or disclosure ol data on this page is • 
subject to the restriction on the' title page. 



SEA LEVEL STANDARD DAY 
OR = 225.6 m/sec (740 fps) 

GROSS WEIGHT = 62 275 nt ( 14 000 lb) 
FLAT PLATE DRAG AREA = 1.39 m2 (15 ft2) 


GO 

£'•1600 

r 

►j 


«: \ 
e 1200 

o 

(X 


AIRFOIL 1 


AIRFOIL 2- 


TRUE AIRSPEED - KNOTS 


Figure 22. High Speed Forward Flight Performance, 226 Meters 
Per Second (740 Feet Per Second) Tip Speed 
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GROSS WEIGHT = 62 275 nt (14 000 lb) 
FLAT PLATE DRAG AREA = 1.39 m 2 (15 ft 2 ) 
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Figure 24. High Speed Forward Flight Performance, 244 Meters 
Per Second (800 Feet Per Second) Tip Speed 


299-099-635 





I BELL 

HELICOPTER company 











APPENDIX A 



NAT I ONAAL LUCHT- EN RU I AATEVAARTLABORATOR I UM 
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AN AERODYNAMIC DESIGN STUDY FOR ROTOR AIRFOILS 

b y 

«A» 

J.W. Boerstoel ) 

J.W. Slooff **) 

G.H. Huizing +) 

W.J. Piers ++) . . 

SUMMARY 

Using, as a basis, the hodograph method tor transonic shockfree flow, a 
design study has been performed for airfoils satisfying the multiple design 
requirements that are typical for the helicopter rotor environment. 

Two new airfoils have emerged from this study. The aerodynamic data 
predicted for the two airfoils compare well with contemporary rotor airfoils 
designed along more empirical lines, especially at high speed. 

Of the two airfoils one was required to have a small pitching moment, the 
other not. It appears that the main implication of the pitching moment re- 
striction is a reduction of cp 

X max 

Both airfoils exhibit a characteristic peak in upper surface curvature 
that is believed to be essential for combining favourable high speed and 
manoeuvre performance. In this respect the possibilities of the hodograph 
method could not be fully explored. Continued parameter studies could possibly 
lead to further improvement. 

*) Senior Mathematician 
** ) Senior Aerodynamicist 
+) Senior Systems Analysist 
++) Aerodynamicist 
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• Ps - Poo 
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c chord length 

drag coefficient 

c^ local skin friction coefficient. 

Cf lift coefficient 

c^ quarter chord pitching moment coefficient 

L/D lift/drag ratio s 


Ma 

Mach number 

p s 

local static pressure 

Poo 

free-stream static pressure 

v 

free-stream dynamic pressure 

R 

radius of surface curvature 

Re 

Reynolds number based on chord length 

t 

airfoil thickness 

: X, Z 

airfoil system of coordinates (x chordwise) 

•o; 

angle of attack 

■ : ®o 

thickness parameter 

r 

circulation 

" ' x i 

parameter controlling nose bluntness 

k 2 

parameter controlling camber 

‘ • 9 

surface slope 

SUBSCRIPTS 


/ 

refers to lower surface 

max 

maximum value 

min 

minimum value 

o 

zero lift quantity 

t.e. 

refers to trailing edge 

u 

refers to upper surface 

SUPERSCRIPTS 



critical value for local sonic flow 
A- 3 



INTRODUCTION 


In recent years a growing interest can be noticed in the 
development of "advanced" airfoils specifically designed for heli- 
copter rotors (Refs . 1,2 , 3) . The reasons are twofold. 

First, there is the evolutionary type of expansion of the 
helicopter capabilities with regard to efficiency and performance 
which leads to a need for aerodynamically more efficient rotors. 

The flow through a helicopter rotor is of a complex, three-dimensional 
and unsteady nature. However, it has been verified at several 
occasions that the performance of a rotor depends strongly on the 
two-dimensional steady characteristics of the rotor profile. Although 
the detailed nature of this dependence is not clear, the performance 
of a helicopter rotor in a given flight condition can be improved 
by improving the characteristics of the rotor airfoil section in 
the two-dimensional, steady flow conditions. 

Secondly, new analytical design tools and concepts are 

*) 

currently becoming available. This makes it possible to deal 
more adequately with the transonic effects that occur in most 
of the helicopter's flight conditions. Such developments, to a 
certain extent, parallel the recent work on supercritical airfoils 
for fixed-wing airplanes. 

The initial stimulus for developing airfoils with favourable 
transonic characteristics was given by Pearcey (Ref. 5), who proved 
experimentally, that shock-free transonic flow is a real possibility. 
He found, that shockwaves can be reduced in strength and even elimi- 
nated by designing for a "peaky" type of pressure distribution. 

With respect to rotor airfoil design a considerable step 
forward was made through the work of Wortmann (Ref.l), who applied 
the "peaky" principle to improve the transonic characteristics. 

In particular, he showed how to utilize a "peaky" pressure distri- 
bution to increase the maxi mum lift in the medium Mach number 
range of the retreating rotor blade. 


While Pearcy had set out empirical rules for the design of 
shock-free airfoils, a mathematical solution to the problem was 


For a recent survey article see reference 



given by Nieuwland (Ref. 6). Using analytic hodograph theory 
Nieuwland and his collaborators calculated a family of shock-free 
profiles of considerable geometrical variety classified as quasi- 
elliptical airfoils. Results of two-dimensional testB in a transonic 
tunnel verified the theory for both non-lifting and lifting 
airfoils (Refs. 7,8). 

A significant contribution to the understanding of the 
physics of transonic shock-free flow was given by Spee (Ref.9)» who 
showed that the flow around quasi-elliptical airfoils is stable 
with respect to unsteady disturbances . He found that the shock- 
free design condition is embedded in an interval of free stream 
Mach numbers and angles of attack where the wave drag is negligeable: 
The design condition can be reached in a continuous stable manner 
from neighbouring conditions. 

Since then, it has been found, that the definition of 
'neighbouring conditions' can be extended to include certain contour 
deviations from the analytical airfoil shape. I.e, f (subsonic) 
parts of an analytic shape can be modified without destroying 
the low-drag properties of the basic shock-freeflow. This provides 
an additional degree of freedom that can, for instance, be used 
to increase the "shock- free lift coefficient" at a given Mach 
number (Ref.10). 

A 

This report describes an effort to make profitable use of the 
hodograph method for quasi-elliptical airfoils in a design 
process for helicopter rotor airfoils. The motivation for this 
investigation emerged from joint deliberation between Bell Helicopter 
Company (BHC) and NLR. It was expected that designing for shock- 
free flow by means of the analytic hodograph theory, rather than 
for "peaky" pressure distributions as Wortmanr (Raf.l) did, would lead 
to a further improvement of performance. 

The work forms part of a NASA/ BHC contract and was executed 
by NLR under subcontract to BHC. In the proposed program (Ref. 11) 

BHC was feeding-in the helicopter experience, the design requirements 
and a baseline helicopter airfoil section designed by Wprtmann. 

Based on these data NLR was to design two airfoils ; one that 
satisfies the usual low pitching moment requirement for rotor 
airfoils and one that does not. Comparison of the two airfoils 



would provide an answer to the question whether the pitching moment 
restriction causes a degradation in aerodynamic performance. 

In the next chapter we will first discuss the design require- 
ments provided by BHC. This will be followed by a description of the 
design procedure, a discussion on the computations with the hodo- 
graph method and a description of the process of modification of 
the basic shock- free shape selected. The final chapters summarise 
and discusB the results obtained in terms of airfoil performance. 


design REQUIREMENTS 

As discussed in detail reference 1 the helicopter's usual 

flight conditions, distinguished aB hovering, manoeuvering and 

high speed flight (Fig.l), imply conflicting requirements in airfoil 

; design. The hover condition asks for a high lift/drag ratio at 

• a lift coefficient of the order of 0.65 over most of the rotor 

blade span at Mach numbers upto approximately 0.6 for the outboard 

m sections. In manoeuvre the maximum g-capability is directly related 

to the c» of the retreating blade, which, for the outboard 
t max 

sections, should be as high as possible in the 0,4 to 0.6 
Mach number range. In high speed flight the advancing blade tip 
requires a high drag rise Mach number at low values of eg, 

Gonflicting as the rotor airfoil requirements are, there is 
little sense in pursuing one requirement first and getting concerned 
about the others later. Rotor airfoil design is an art of compromise 
from the outset and the tentative specifications set out for this 
design study do already represent some form of compromise. This 
may be illustrated by comparing the tentative specifications for 
this design study with the characteristics that (see appendix) 
could possibly be obtained if each of the requirements is optimised 
for separately (table l). v 

' Comparing the tentative design figures with those realised 
experimentally for a contemporary rotor airfoil (Wortmann FX 69 -H-O 98 
airfoil, reference 15 ) it can be seen that in the present design 
study attention is focussed on improving the high speed character- 
istics without, however, affecting the performance at the other 
design points. Both the Wortmann and the tentative figures represent 



a substantial improvement with respect to the "standard helicopter 
airfoil", NACA 0012 . ' ' r ' ' 

The procedure followed in trying to meet the design' specifications 
is described in the next chapter. 

3 DESIGN CONSIDERATIONS AND DESIGN PROCEDURE 

3.1 Characteristics of the baseline airfoil (Wortmann FX69-H-O98) 

Prior to going into the details of the procedure followed in 
the present design study, it is worthwhile to consider the 
characteristics of a typical rotor airfoil. The Wortmann FX69-H-O98 
was chosen for this purpose because it combines the multiple 
rotor airfoil requirements in a highly successful way. The 
considerations used in shaping this airfoil are summarized in 
figure 2, which was taken from reference 11. 

In terms of aerodynamic characteristics these considerations 
have, at the hover condition, resulted in laminar, accelerating 
flow over almost the entire lower surface. On the upper surface there 
is a small supersonic zone between 6 $ and 16 % chord, terminated 
by a weak shock wave (Pig. 3 ). At manoeuvre it exhibits a "peaky*' type 
supersonic region, extending from the leading edge to 10 chord, 
that is terminated by a strong shock, leading to shock- induced 
stall. At high speed there is a supersonic zone between 10 fo 
and 60 % chord on the upper surface, terminated by a strong shock 
and a "peaky" pressure distribution with weaker shock(s) on the 
lower surface. 

In terms of geometry the 10 % thick FX69-II-O98 exhibits a 

fair amount of nose droop, a nose radius of 0.6 /£ chord and, in 

order to reduce the pitching moment, a slightly reflexed camber 

line at the trailing edge. Maximum thickness occurs at 30 %, A 

very important characteristic appears to be the upper surface 

curvature distribution at about 10 % chord ( /x/ c «0.33 in 

figure 4 ). Wortmann (Refs. 1 , 16 ) found this to be a key feature 

to a high c. at Ma® 0 . 5 . As will be discussed later, it has also 
max 

some beneficial consequences for the high Mach number, low c^ 
conditions. 
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3.2 Considerations underlying the approach selected 

In view of the fact, that the tentative design specifications 
of table 1 do not differ extremely from thoffi realized by the 
FX 69 -H-O 98 airfoil, it may be anticipated that the geometry and 
pressure distributions for the new airfoils must exhibit some 
similar features in order to meet the requirements. The question 
is how to make use of the hodograph method in order to obtain 
such features. 

In order to appreciate the following line of thought it is 

essential to realise that the hodograph method for quasi-elliptical 

airfoils provides for given values of input parameters one and 

only one shock-free shape and corresponding pressure distribution 

as output. Of the input parameters one is related to the free 

stream Mach number and one to the circulation around the airfoil. 

The other parameters can be used to generate a certain fami ly of 

r shapes for one particular design point in the c^-Ma plane. 

Leaving aside the hover condition, which appears not very 

critical with respect to transonic effects, this knowledge about 

: the hodograph method suggests two alternative wayB of approach. 

One is to calculate a suitable shock-free shape for a high at 

Mach 0.5. Using the freedom mentioned in chapter 1, to modify 

parts of such a basic airfoil one could optimise further towards 

hover and high speed. The other possibility is to start out from 

high speed and optimise towards hover and manoeuvre. 

For several reasons it was decided to start out from the 

high speed side. In the first place it is clear from the extent 

of the supersonic flow regions in figure 3, that the high speed 

condition will determine a much larger part of the airfoil contour 

than the manoeuver c« requirement. This motivation may seem to 

^max 

contain a paradox at first sight, because the manoeuvre 
condition would give more freedom to modify the basic shape. 
However, 'shaping for transonic shock-free flow is a very delicate 
matter and one certainly would like to leave this to the hodograph 
method as ouch as possible. 

A second reason is constituted by the fact that viscous 

effects, including shock-induced separation, play a dominant role 

at c» . Although, one could in principle, design for a high, 
max 

shock-free c^ at Ma»0.5, there still would be considerable 
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uncertainty as to the eventual c. .At high speed, low c . , 

^max x 

where the Mach number for rapid drag rise is the quantity of 
importance, the situation is more predictable. 

The actual design process 

Having chosen the high speed approach we will now discuss 

the design procedure more specifically. For this purpose consider 

the flow diagram of figure 5. The diagram on the left hand side 

illustrates the purpose of the different steps in the design 

procedure. The similar diagram on the right liBts the analytical 

methods used in the different steps. 

The first step is to calculate by means of the hodograph 

method (Refs. 6, 17) a series of shock-free shapes that will satisfy 

the high speed requirement. This step needs systematic variation 

of the input parameters involved. By engineering judgement of 

geometry and pressure distribution the shapes that are most. 

promising are selected for further evaluation. This further 

evaluation consists of a crude estimate of the hover and manoeuvre 

characteristics. In the present investigation the approximate 

subsonic potential flow method of reference 18 was uBed for this 

purpose. The shape that promises the highest cp at Ma-0.5 

max 

is then chosen as the basic high speed airfoil. 

The next step is to modify parts of the basic airfoil with 
the objective of improving the hover and manoeuvre performance. >- 
As indicated in chapter 1 this can probably be done without severe 
consequences for the drag at the high speed design condition. 

Such a modification process is one of trial and error in which 
the effects of a oertain modification are analyzed by means of 
flow computations. Both inviscid flow and boundary layer calcu- 
lations'are needed in this phase. 

. When the airfoil shape is completely fixed, the final step 
is to estimate the c e , c. , c curves as a function of angle of 
attack and Mach number. This requires potential flow and boundary 
layer calculations, matched in an iterative cycle, as described in 
Section 6.1.1. 

The three major steps of the design procedure are discussed in 
more detail in the following chapters. 

* 

A Reynolds number of 5 x 10 was assumed for all viscous flow 
calculations and estimations throughout this report unless 
otherwise noted. 



COMPUTATION OP A BASIC, SIIOCK-FREF SHAPE BY MEANS OF HOLOGRAPH 
THEORY 


Nieuwland's hodograph theory (Ref. 6) is a method for the 
transformation of the incompressible potential flow around a 
lifting ellipse into a compressible potential flow around a 
lifting quasi-elliptical airfoil. In this theory four basic 
parameters appear, namely the free stream Mach number (Ma), the 
circulation of the flow T, the incidence a of the ellipse in the 
incompressible flow and a term e Q in the expression ( 1- e c )/( 1+So) 
for the thickness ratio of the ellipse. 

These four parameter profiles are not closed at the rear end. 
Prom an engineering point of view the "gaps" are often negligibly 
small. If required, they can be closed by adding three more para- 
meters,’ provided, that the physical interpretation is not destroyed 
by the appearance of limit lines in the supersonic region or a 
branch point outside the airfoil near the nose. Limit lines can 
also occur with the basic, four parameter profiles. For more 
details concerning the effect of the parameters on the airfoil 
geometry see references 8,17. 

In the present investigation analytical closure of the airfoils 
was not envisaged because it was expected that the rear parts would 
have to be modified anyway for optimisation towards the hover and 
manoeuvre requirements. The initial parameter study was therefore 
limited to the four basic parameters mentioned above. 

Of the four parameters the free stream Mach number can be chosen 
readily ; experience has shown that if a drag-rise Mach number of 
O .85 is required, the Mach number for the theoretical shock-free 
design condition can be about 0.025 lower. The other parameters 
were varied such, that, not permitting c^ to exceed 0.2, and 
avoiding limit lines in the supersonic regions, the largest 
possible amount of nose droop was obtained. 

The best result of this first set of calculations was an airfoil 
designated NLR 7216. The nose shape of this airfoil is shown in 
figure 6. The pressure distribution in the high speed design 
condition bears strong resemblance to that given in figure 7. 

A characteristic feature of the airfoil is 1 formed by a peak in the 
upper surface curvature distribution at xj c ■ 0.067 {\fxjc - 0.26 



in figure 8). This peak is caused by a limit line cusp just inside 
the airfoil and is of major importance for the shock-free upper 
surface flow. 

It may be noted, that a somewhat similar, but less pronounced 

curvature distribution is exhibited by the FX69-H-O98 airfoil. 

This is believed to be one reason for the comparatively good 

high speed performance of the FX69-H-O98. 

As mentioned before, such curvature distributions are also 

favourable for obtaining a high c* in the medium Mach number 

t rmx 

range. The reason is the following. At a certain high angle 

"of "attac kT" and~a ~c 7 Trtai n - M ach number, crest"" and "curvature peak can 

coincide at the end of the supersonic zone. The expansion effects 

generated by the curvature peak then tend to decrease compressive 

effects and shock strengths at the crest. Prom another point of 

view the curvature peak promotes a hollow "peaky*' suction loop at 

high angles of attack which, as shown by Pearcy (Ref. 5 ), is 

favourable for reducing shock strength. It also reduces the crest 

pressure in such a way that the favourable effects occur at the 

desired Mach number. At the optimum condition the width of the 

supersonic suction region is, in fact, determined by the distance 

from the leading edge to the curvature peak { obviously, the 

larger this distance, the higher c. can be. Apart from the 

t max 

"peaky" concept and the crest pressure criterium this is believed 

to be an important rule for obtaining a high c. in the medium 
3*) * max 

Mach number range. ' 

The rather forward position of the curvature peak of airfoil 

7216 and, associated with this, the limited amount of nose droop, 

is believed to be the main reason for the disappointing manoeuvre 

and hover performance of this airfoil. (By means of crest pressure 

correlation Co at Ma- 0.5 was estimated to be 1.05 and to much 
* max 

supercritical flow was indicated at the hover condition). 

In order to remedy the situation the theory for quasi -elliptical 
airfoils was re-analysed and two new parameters and ^2 were 

•*) 

' It should be mentioned, that curvature peaks of the type just 
mentioned could have an adverse effect on the wave drag in the 
hover condition (Ma» 0 . 6 , c^* 0 . 65 ). It is therefore important to 
avoid, if possible, the appearance of supercritical flow regions 
at this condition. 
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introduced. The first parameter controls nose bluntness, the 
second controls the droop of the airfoils. With Ma, e and T 
fixed at the values for airfoil 7216 the parameters and A^ 
were systematically varied so as to give as much droop as possible 
while positioning the curvature peak (Fig, 8) as rearward as 
possible. The parameter choice was in this case restricted by 
the appearance of limit lines. 

The best result computed was airfoil "'223. For the geometrical 
improvement obtained compared to airfoil 7216 see figures 6 and 8. 
The shape of the sonic lines in the theoretical design condition 
(Ma«*0.82 6, c^mO.13) are sketched in figure 7. 

It is expected, that further improvement can still be obtained 
by systematically varying both the two new parameters and the four 
basic parameters. This could not be verified in the present 
investigation. Airfoil 7223 wa3 therefore taken as the basic 
shock- free shape. 


MODIFICATIONS TO THE BASIC SHAPE 

General remarks 

In modifying a basic, shock-free Bhape the important question 
is how large a modification can be tolerated if one does not want 
to lose the low-drag properties at the high speed design condition. 
Present NLR experience in this respect iB, that in the first place, 
the modifications must be limited to the regions that have 
subsonic flow at the high speed design condition. Secondly, the 
location of the forward sonic points at the high speed design 
condition and the acceleration at these points must not be affected 
by the modification. The conditions at a rearward sonic point 
have appeared to be less critical (Ref.10). 

For the basic airfoil of figure 7 the considerations just 
given Buggest that the upper surface may be modified aft of 
approximately 70 $ chord and the lower surface aft of 20 $ chord. 

At the nose, experience is that modification is limited to the 
immediate vicinity of the position of the stagnation point at 
the high speed design condition. 

So far, NI£ have used the approximate potential flow method of 
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reference 18 to estimate the effect of contour modifications. 

In spite of the fact that this method is limited,' in principle, 

to subcritical flow it has proved usefull in cases of supercritical, 
shock-free flow (Ref. 10). In contrast to the hodograph method, the ap- 
proximate method of Reference 18 predicts the subsonic flow field for a 
given shape. The method uses the surface singularity technique in com- 
bination with semi-empirical compressibility characteristics 

For the purposes in mind, a dissipative type of finite 

difference method for the computation of transonic flows with 

shock waves would obviously be more appropriate. At the time of 

the present study such a method was not yet available at NLR. 

However 'a"~few _ check _ caTcuTati _ ons _ f or" the “high ‘speed " and manoeuvre 

design points by means of the method of Garabedian and Korn 

(Ref. 19) could be made at the end of the investigation. ' 

With pitching moment requirement (airfoil l) 

As indicated in chapters 2 and 3, modification of the basic 
high speed 3hape with the objective to optimize for hover and 
manoeuvre, must, in terms of pressure distributions, be directed 
towards the following. 

i) In order to avoid shock waves on the upper surface at the 

hover condition and to have a high c. at Ma-0.5, the 
* max 

c^-value (c^) for which the flow first becomes critical in 

the 0.5 to 0.6 Mach number range must be as high as possible. 

ii) To minimise boundary layer drag at the hover condition a 
laminar, accelerating flow of long extent is required on the 
lower surface at Ma»0.6, c^»0.65. 

iii) To reduce the shock strength at high c^ at Ma=*0.5, improve, 
if possible, the "peakiness" of the suction loop. 

iv) To satisfy the pitching moment requirement reduce, if necessary, 
the load near the trailing edge. 

v) To reduce the risk of early boundary layer separation at the 
manoeuvre and high speed conditions avoid large pressure 
gradients and apply, if possible, a Stratford (Ref. 12) type 
of pressure recovery. 

Of these directives iii) stands rather isolated in the sense 
that a limited modification of the nose shape, with the objective 

*\ 

' Most of these were performed by BHC 
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of improving the "peakiness" of the suction loop, does not interfere 
with the other directives. Considering the incompressible suction 
loop at the optimum angle of attack in figure 9 suggests to strive 
after a somewhat more "hollow" suction loop. With the limitation to 
restrict nose shape modification to the immediate vicinity of the 
stagnation point location at the high speed design condition, this 
could only be realised by shifting the suction peak (Fig. 9). The 
corresponding leading edge modification has been indicated in 
figure 6 . 

i) imolies that the freedom to modify the rear parts of the 
basic airfoil should be used to increase the loading in that region. 
This, however, is in conflict with the pitching moment requirement 
and also with 11 ) and v), which means that a compromise must be 
found. This was realised by a trial and error process in which the 
effect of several modifications on the pressure distribution at the 
- > various design points was calculated by means of the method of 
reference Id. The methods of Thwaites (fief, 20 ) and Nash (Ref. 21 ) 
were used to check the boundary layer behaviour at the most critical 
conditions. Transition was predicted by raeanB of the Michel/Smith 
criterium (fief. 22). 

As a final shape the one shown in figures 10 and 11 was con- 

r 

sidered acceptable. Note that the upper surface was modified aft of 
70 % x/c and the lower surface aft of ^0 jo. Tabulated coordinates 
of the airfoil are given in table 2. The predicted aerodynamic 
characteristics are discussed in section 6.1. 

5.3 Without pitching moment requirement (airfoil 2) 

Apart from the pitching moment requirement iv), the directives 
listed in the beginning of this section apply equally well in the 
case without pitching moment requirement. 

The optimisation process for airfoil 2, leads nevertheless to 
a characteristic difference between the two airfoils. This is 
caused by the fact that the absence of a pitching moment requirement 
allows application of the rear-loading concept. 

In the case of airfoil 1 some negative loading was needed near 
the trailing edge to keep the pitching moment within the required 
limits. As a consequence some wave drag had to be tolerated in the 
hover condition (Fig. 14). A further consequence of this is that 

. \ 

\ 
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a fully laminar lower surface boundary layer is required to obtain 
an acceptable L/D value. . 

In contrast, the application of (positive) rear loading in- 
creases the critical c^ -value in the 0.5 - 0.6 Mach number range. 

As a result the wave drag at hover is negligible (Fig. 33). However, 
the boundary layer drag is somewhat higher than that of airfoil 1 
due to a more forward transition point on the lower surface. As a 
result the L/D values of the two airfoils do not differ very much. 
Thus, the benefits of the rear- loading concept are mainly limited 
to a higher c ^ max - Figures 29 and 30 present the airfoil shape that 
has - resulted - f fom~tHe — ' trial - and "error - process for Airfoil 2. 

Tabulated coordinates are given in table 3. Section 6.2 discusses 
the predicted aerodynamic characteristics. 

6 PREDICTED AERODYNAMIC CHARACTERISTICS 

6.1 Airfoil 1 

6.1.1 The high speed, hover and manoeuver design points 

Aerodynamic data relevant to the high speed, hover and 

manoeuver design points are presented in figures 12 to 18. 

Figure 12 presents a comparison of the hodograph pressure 
distribution for the basic airfoil at the design Mach number of 
0.826, with that for the modified airfoil calculated by means of 
the approximate subsonic method of reference 18. On the basis of 
this comparison it is expected that the modification does not give 

rise to significant wave drag at the design Mach number of 0.826. 

Figure 13 presents a result of the Carabedian/Korn method for 

Ma = 0.85, c^ 0. The predicted wave drag of 0.005 suggests that the 
drag coefficient at this condition will be just below the required 
value of 0.013 provided that the boundary layer can negotiate the 
pressure rise at the rear also in the presence of a shock wave. 

The pressure distribution at the hover condition, including 
the effect of the boundary layer, is given in figure 14. It was 
calculated by means of the method of reference 23. This method 
uses a single computer program and combines the analyses of refer- 
ences 18, 20, 21, and the transition criterium of reference 22 in 
an iterative cycle. The Square and Young formula (Ref. 26) is used 
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to calculate the drag from the boundary layer properties at the 
trailing edge. The basis of the method is described in reference 24. 
As shown in figure 14 the flow is supercritical* Based on corre- 
lation with the FX69-H-098 airfoil the wave drag is estimated to be 
0.001. The total drag is estimated tp be 0.0074. This leads to a 
lift/drag ratio of 90 which is close to that of the FX69-H-098 air- 
foil. 

With the present state of the art in theoretical aerodynamics 

accurate prediction of c« is not yet possible, so that one is 
r < max J 

limited to empirical estimates. Since ct at Ma = 0.5 is limited 
by shock- induced stall, two methods are available to aid in esti- 
mating this parameter. Both methods, however, are based on the as- 
sumption that the stall mechanism for the new sections are similar 
to that of the FX69-H-098 airfoil. With the first method incremental 
values of c^ may be estimated by observing the minimum pressure as 
a function of c^ at the critical pressure value (Fig. 15). The 
second method utilizes Sinnott's criterium (Ref. 25) in relation to 
the crest pressure expressed as a function of c/ (Fig. 16). Both 
methods suggest that 9; max at Ma = 0.5 of airfoil 1 will be approxi- 
mately 0.1 below that of the Wortmann FX69-H-098 airfoil. This 
would bring it in the 1.20 to 1.25 range for a Reynolds number of 4 
to 5 million. 

A similar conclusion is obtained from pressure distributions 

calculated by means of the Garabed ian/Korn method (Fig. 17). The 

test results for the FX69-H-098 airfoil suggest that at Re = 4 x 10^, 

for the specific type of pressure distribution considered, shock 

induced separation limits a further increase of cj when the local 

pressure coefficient just in front of the shock exceeds the value 

-4 (Fig. 4). According to figure 17, this would, in inviscid flow, 

be obtained for c^ » 1.28. With a 57. viscous lift loss (suggested 

by the difference between potential flow and experiment in figures 

15, 16) this leads also to a zp of 1.20 to 1.25. 

* max 
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An assumption underlying the considerations just given, has 
been that there is no drastic difference in the rear separation 
characteristics between the FX69-H-09S and the present airfoil. 

The results of boundary layer calculations for subcritical condi- 
tions, presented in figure 18 in terms of the local skin-friction 
coefficient at x/c = 0.95, suggest that this is indeed the case. 

6.1.2 Estimated cy , c, and c -curves 

* d m 

• In the subcritical regime lift and drag value (Fig. 19, 20, 

— and~21-)_were-calculated_by_. means— of _the_me.thod- of -reference. 23. 

The method uses the Square and Young formula (Ref. 26) to calculate 

the drag from the boundary layer properties at the trailing edge. 

Data for supercritical flow were obtained by extrapolation of sub- 
critical values, using the test results of the FX69-H-098 and some 
isolated Garabedian/Korn data points as a basis. 

The estimated lift and drag boundaries in the c. -Ma plane are 
summarized in figure 22. The drag boundary was obtained from figures 
20 and 21 whereas the maximum lift boundary was estimated by means of 
minimum pressure and crest pressure correlation as described above. 

Finally, calculated pitching moment curves are presented in 
figures 23, 24 and pressure distributions for several subcritical 
flow conditions in figures 25 to 28. 

6.2 Airfoil 2 

A similar set of data for airfoil 2 is given in figures 31 to 
47. These do not need further discussion because they were obtained 
in the same way as those for airfoil 1. 

As indicated by figure 32 a slightly higher wave drag must be 
expected at the high speed (Ma=0.85), low Cj condition. This would 
bring the Mach number for which c^ = 0.013 just below Ma = 0.85. 

Figure 33 presents the pressure distribution at the hover con- 
dition. The lift/drag ratio is estimated to be 94. 

Information relevant to c J max at Ma=0.5 is given by figures 34 

to 38. These suggest that c» will be between 1.25 and 1.30 at 

< max 

Ma=0 . 5 . 

Further data concerning lift, drag, pitching moment and pressure 
distributions is given by figures 38 to 47. 
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CONCLUDING REMARKS 


A design study for two rotor airfoils has been performed using 
as a basis the hodograph method for the computation of transonic, 
shock-free flow. The results of this study are summarized in table 
4 in terms of predicted aerodynamic data of two new airfoils for 
the manoeuvre, hover and high speed design points. 

As compared with a contemporary rotor airfoil, designed along 
more empirical lines, the high speed performance predicted for the 
new airfoils is substantially better. This has been obtained at the 
cost of a slight loss in cp in the medium Mach number range 
(manoeuvre condition). However, c / max at Ma=0.5 is expected to be 
20 to 30 7o higher still than that of the standard NACA 0012 airfoil. 

Of the two airfoils one satisfies the usual requirement for 

a small pitching moment and one does not. It appears" that the main 

implication of the pitching moment requirement is a reduction of 

cp in the medium Mach number range. 
t max ° 

A characteristic feature of the airfoils is formed by the upper 
surface curvature distribution, which exhibits a peak at x/c 0.09. 

It is believed that the presence of such a curvature peak is an 
essential feature of airfoils that must combine high speed and c, 
performance in the way required for application in a helicopter 
rotor. At high speed, the curvature peak triggers a favourable 
"peaky" type of flow over most of the upper surface. In the manoeuvre 
the curvature peak is instrumental in decreasing the crest pressure 
to the level required for obtaining a high c / max at Ma 0.05. At the 
same time it determines the shock position and through this the chord- 
wise extent of the region of supersonic flow. A high manoeuvre c / max 
therefore requires that the position of the curvature peak be as far 
from the nose as possible. 

In the present investigation the possibilities with respect to 
curvature peak position offered by the hodograph method could be 
explored only partially. Further parameter studies are required to 
answer the question whether it could be shifted beyond x/c=0.09. In 
case of continuation of the present work this would be one subject for 
further research. Another, necessary step of a follow-on program would 
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obviously be the careful two-dimensional transonic testing of the two 
new airfoils described in this report. Preferably, this should be done 
under both static and dynamic conditions. 
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APPENDIX 

SOME RFMARKS Oil POSSIBLE UPPER LIMITS FOP ROTOR AIRFOIL TTRFORMANCF. 
AT THE SEPARATE DESIGN POINTS - , 


For comparative purposes it may be illustrative to discuss 
shortly (by lack of hard facts in a somewhat speculative way) 
the upper 1 mits of hover, manoeuvre and high. speed capability 
of airfoils optimised for each of these flight conditions separately. 

Optimisation for the hover condition only would probably lead 

. to a laminar subsonic "rooftop" upper surface pressure distribution, 

followed - by - a Straford _ ( Ref T12‘) — type o”f’ pressure recovery tb _ t"he 

trailing edge (Sketch 1). Reference 13 suggests that the extent of 

the rooftop might go as far as 

90 > chord for Re = .5 x 10^ 

before trailing edge separation 

occurs. With some kind of laminar 

(accelerating) flow on the lower 

surface it is estimated that c,- 

a 

values as low as 0.0030 could 
be obtained. This would lead 
to l/D values as high as 220. 
However, the manoeuvre and high 
speed qualities would be poor as 
trailing edge separation would 
occur almost instantaneously 
when the angle of attack or Mach 
number would be increased beyond the typical values for hover. 

The work of Liebeck, as reported by A.M.O. Smith in reference 

13, provides a basis for an estimate of the upper limit of c<> 

X max 

at Ma**0.5. As in the hover case a laminar, rooftop type of pressure 
distribution followed by a Stratford pressure recovery appears to 
be the best. In compressible fl 
the rooftop suction level would 
seem to be limited by the onset 
of shock- induced separation. 

Assuming that this occurs when 
the local Mach number exceeds 
1.25 (which is supported by 
experimental evidence), c. 

max 



Sketch 2 Optimal pressure distri- 
bution for c^ at Ma=.5 
max 



Sketch 1 Optimal pressure 
distribution for high l/D at 
hover 
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values upto 2.1 would seem possible at Ma»0.5 and Re=5*10 6 . This 
would be obtained for a rooftop extent of 50-60 of the chord 
(Sketch 2) . 

The fact, that "rooftop" type of pressure distributions, 
although differing in extent and suction level, appear suitable 
for both hover and manoeuvre, suggests a certain amount of 
coapatibility between these two conditions. However, looking at 
the rather unusual shapes that are obtained (Ref. 13), there is 
little hope for acceptable high speed characteristics. 

The highest drag-rise Mach number at zero lift is, of course, 
obtained with the flat plate at zero angle of attack. With 
constructional constraints coming-in, the lower limit for t/-c 
is probably something like 4 i°. Experience with quasi-elliptical 
airfoils (Ref. 14) then leads to a drag rise Mach number of 
approximately 0.93 as an upper limit. 
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Table. 2 Coordinates of airfoil 1. 
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Table 3 Coordinates of airfoil 2. 
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Fig. Z DES/qN CONSIDERATIONS USED IN SHRP/NQ THE 
BASEL !NE AIRFOIL (WORTMANN FX69-H-Q98). 
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CURVATURE PERK 



F/g, 6 COMPARISON OF NOSE SHAPES OBTAINED WITH AND WITHOUT 
ADDITIONAL DESIGN PARAMETERS. 
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MODIFIED SNRPE (ill-/? ?2Z3-6Z) 
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Fig. // AIRFOIL 1. 

COMPARISON W/TH FX63-H-038 AIRFOIL SHAPE. 






A/R FOIL 1. 

COMPARISON OF APPROXIMATE POTENTIAL FLOW 


PRESSURE DISTRIBUTION WITH BASIC HODO - 
RAPH SOLUTION FOR HIQH SPEED , LOW c j- 
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FIG- /H • R/RFQ/L 1. 

CRLCULRTED PRESSURE DISTRIBUTION ( RPPROXf- 
MRTF METHOD, INCLUDING EFFECT OF THE 
BOUNDRRy LRXER) RT THE HOVER CONDITION. 
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r/q. !6 R/RFQIL 1. 

CREST PRESSURE AS R FUNCT/ON 
OF c y> RT Mg = O.S. 
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O 0.4 O.d f.2 r.6 




r/<f IS N/FFOIL /. 

SKIN FRICTION COEFFICIENT FT 
/ I 3c/c = 0.95 NS ft FUNCTION OF C j 

NT Mg = 0.5 , Pe = 5x 10 6 (NFtSH 
L OCNL FQU/L IBBtUM METHOD). 
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CRUDE ESTIMRTE 
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Zft ft !R FOIL 1. 

7 FRO LIFT PITCHING MOMENT PS ft FUNCTION 














R/RFO/L 7. 

PRESSURE DISTRIBUTIONS RT Afar OS, 
/MCI UD/Nq EFFECT OF THE BOUMVRRy 
LRUER (RPPROX. METHOD). 
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BAS/C SHAPE 



W/TH FX63-H-098 P/RFO/L SHF PE. 







Fiq. 3 / AIRFOIL 2. 

COMPARISON OF APPROXIMATE POTENTIAL FLOW 
PRESSURE DISTRIBUTION WITH BASIC 
, ' NODOQRAPN SOL UTION FOR HIGH S PEPS' , 

LOW C / DESIGN CONDITION. 
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CRUDE ESTIMATE 



FOR SEVERAL MACH NUMBERS (EST/MRTED) 
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NATIONAAL LUCHT- EN RUIMTEVAARTLABORATORIUM 

NATIONAL AEROSPACE LABORATORY NLR 
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NLR TR 72128 C 

ALGOL PROGRAMS FOR THE COMPUTATION OF . 

QUASI-ELLIPTICAL SHOCK-FREE TRANSONIC AEROFOILS 

by 

J.W. Boerstoel and G.H. Huizing 
SUMMARY 

A user-oriented description or a set of ALGOL programs for the 
design of quasi-elliptical shock-free transonic aerofoils is presented. 
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t 

X 

r*J 

*b 
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y 
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chord, length of aerofoil 
lift coefficient 
error measure, eq. (5) 

uncorrected interpolating function, section 2.7 
corrected interpolating function 
local Mach number 

free-stream-Mach-numher * 

local Mach number at t.e. 
highest point number, section 2.7 
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c 
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b 

c 
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stream function of basic flow 
correction stream function 
flow angle 

flow angle at (cusped.) t.e. 

flow angle at branch point of holograph surface 


Sub- and superscripts 

• first derivative 

* second derivative 

III third derivative 

IV fourth derivative 

V fifth derivative 

corrected data or functions, seotion 2.7 
. point number, section 2.7 
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1 


INTRODUCTION 


Transonic shock-free lifting profiles can be developed with 
hodograph theory. This theory has been used in the reference to 
develop a calculation method for so-oalled quasi-elliptical 
aerofoils. The calculation method has been programmed. This report 
describes how the computer prograranes have to be used in order to 
obtain shook-free transonic aerofoils. 

The -program packa ge desc ription is user^orlented._Informatlon 
is given about some theoretical background needed (section 2 ), 
the aerofoil design process (seotion 3 ) and the computer programs 
(section 4 ). The program listings are given in the appendices. 


2 THEORETICAL BACKGROUND 

2.1 Scope 

In order to run the program package some theoretical knowledge 
is needed with respeot to a number of subjects. Before proceeding 
to a description of the handling of the programs we will first 
present this background information. 

2.2 The parameters and the section shapes 

In principle, compressible flows around q.e. aerofoils are 
obtained by applying a mathematical transformation to the stream 
function of an incompressible flow around an ellipse. The resulting 
stream funotiony^ defines aerofoil seotion oontours depending on 
six parametersi (« free stream Mach number), e Q (2 e Q 1 / 2 is the 
excentrieity of the ellipse), a (-incidence of ellipse) , T (« flow 
circulation) and the parameters and Ag whioh control the nose 
shape (Fig. l). 

The seotion contours defined by have a gap at the trailing 
edge. In many oases this gap is so small that for engineering 
purposes it can be neglected. 

If desired the gap can be closed by adding to a correction 
stream function depending upon M and three other parameters. The 
resulting closed aerofoil has a cusped trailing edge. The three 
other parameters are (» local Mach number at t.e.), 
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9 (« looal flow angle at t.e.) and u, a parameter controlling the 

c 

section slope in the stagnation point (see Pig. l) . When the gap 
is closed, X^ and X ^ are not avialable as parameters (X^ and X^ 
have to be set zero). 

The closed aerofoil sections depend thus upon seven parameters. 
If the closure is not desired, six parameters define the aeotion 
shape . 

In the computer programs and M c are replaoed by the equi- 
valent velocity parameters and c T j , defined by 

(Y-1.4) (1) 

(Y-1.4) (2) 

A table of parameter values that may be used as a guide in 
selecting suitable parameter valueB is given in table 1. 

2.3 The independent hodograph variables and the dependent physical 
variables. 

The qualitative relation between the independent hodograph 
variables and the dependent physioal variables is first presented 
for closed aerofoils. 

The independent hodograph variables used are the velocity 
parameter 7 and the flow angle 6. <T is related to Maoh number by 
(see also table 13) 

** - TwTTPfT (3 > 

The part of the hodograph surface that is of interest and that 

corresponds to a flow around a closed q.e. aerofoil consists of two 

sheets. The sheets are generated by a branch point (T ,0 ) 

*1 

located near (T^,0). In order to be able to distinguish between the 
two sheets we may introduce a cut from the branoh point as indicated 
in Pig. 2 with the convention that a passage of the cut implies 
a passage to the other sheet. 


2 * 0 . 

u 2 * X<S 

O " (y- 1)(1-9? c ) 

See also the conversion table 12. 
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The qualitative relation "between section contour and free stream 
lines extending in the physical Cx,y) plane to infinity from the 
stagnation point and from the t.e. i8 then as sketched in Pig. 2. 

On these lines the stream function + Y o ■ 0. The following points 
are noted* 

a point 1 is the l.e. stagnation point, point 6 the t.e. point, 
where (C.e) . (^ C »9 C ) 

b (1,2,3) is the upper front part of the section contour} 

( 3 , 4 ,-5 , 6)_i s_t he__upper_reax_part_of_ the -sect ion-contour} : — 

(6, 7, 8, 9) is the lower rear part of the section contour} 

(9,10,1) is the lower front part of the section contour} 
c the stream funotion +Y 0 has a singularity at (£«,., 0) in one 
of the sheets} this singularity corresponds to free stream 
conditions. The stream funotion is regular everywhere else on 
the hodograph surface} 

d (11,1,12,13) is the free streamline from the l.e. stagnation 
point, (6,61,62) is the free streamline from the t.e. point. 

When the aerofoil is not made closed by adding y toy, "the 
i O D 

qualitative relation between seotion oontour and free streamlines 
is as sketched in Pig. 3. The difference occurs at the saddle point 
of the stream funotion y^ on the hodograph surface near the ex- 
pected t.e. point image* is not zero in this point. In the 
physioal surface the section contour is then not closed. The 
mismatch at the expected location of the t.e. is often negligible 
from an engineering point of view. 

2.4 The closure correction and the choice of the parameters <t c ,8 0 and p 

An uncorrected aerofoil can be closed by adding to the 

oorreotion stream function y having as parameters'!’ ,6 and p. The 

c c c 

correction is based on forcing a saddle point of y, + y at (<T ,0 ) 

DC C C 

in the seoond of the (T,©) surface (Pig. 2) on the image 

y^ + \p o m 0 of the closed aerofoil. 

The parameter p can either be specified, or if unspecified, is 

determined in suoh a way that y is small in a certain mathematical 

c 

sense (for details see the Ref. ). 

Experience has shown that an unoorreoted aerofoil oan only be 
closed, if the value of at the saddle point of is small 
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enough ( /V^/< 0.02 appr.), Moreover, (£,,0^ should be given 
values (approximately) equal to the values of (7,0) in this saddle 
point. 

A special program is available to locate the saddle point of 
if desired, so that the value of (£, 0 ) andy^ at the saddle 
point can be determined. 

2.5 Limitations on the choice of the parameters 

The values of the parameters determining the section shapes 
(see section 2.2) cannot be chosen arbitrarily. The limitations 
are of two different natures. 

a Although \j^ and y^ + Y c are one-valued functions on the two 
sheets of the hodograph manifold, oomputed results may become 
unacceptable when the mapping of the hodograph manifold to the 

k. 

(x,y) surface is not regular. The mapping can become singular 
by the appearance of limit lines (• folds in the supersonic 
parts of the physical (x,y) surfaoe) or of branch points in the 
subsonic partB of the flow outside the aerofoil contour of the 
(x,y) surface. The singularities can only be discovered by 
computing the section explicitely and inspecting the results, 
b When a closed seotion is aimed at, a and T should closely 
satisfy the relation 

7» 

a - arosin ^ ( 4 ) 

in order to obtain values of y^ at the saddle point of y^ near 
the expected t.e. position that are small enough (see section 
2 . 4 ). The degree of freedom when deviating from this relation 
can only be established by computations and inspection of 
results. The rule implies that closed aerofoils are only 
possible for aerofoil with negligible camber and hence without 
rear-loading. In this case the parameters X ^ and X^ have to be 
set equal to zeroj they are thuB not available for control 
of the section shape. 

2.6 The accuracy of the computed results 
_ 

The accuracy aimed at in the computations is of the order 10 H 
for y, y_, y e , x and y, where y stands for either y^ ory^ + y^. 
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This accuracy is in many cases not obtained, when T is about 

0.9 & 1.2 * ^ and /©/< 15°, "that is on the upper surface on the 

rear half of the sections, and over the last 70 '% of the lower 

surface. This is due to the use of a convergence accelerator (the 

e-algorithm) applied to the series expansion for and y. 

Near the singularities (TT-O) and CT.0 ) of these series the 

£-1 Z >1 

e-algorithm introduces errors of stochastioal nature. The errors in 
the computed values are uncorre Hated, except when in a contour 
"point - the” colnputed^value of y/ differs appreciably from zeroj 
correlation in errors occurs in about 2 of all data of a complete 
section oontour. 

In general the oomputed data are not acourate enough for 
engineering purposes. A smoothing correction method has to be 
applied to convert the data to data that are accurate enough 
(section 2.7). 

Smoothing correction of aerofoil data 

The smoothing correction of the profile data needed for reasons 
explained in section 2.6 is effectuated by a special method in 
whioh an error measure is carefully balanced against a smoothness 
measure . 

The details of the smoothing correction method are as follows. 

Let (x i ,y i ,y?,yV), i - 0(l)N, be given estimates of unknown points 

where primes indicate first derivatives and double 
primes second derivatives. 

Let (Ay^&y* ,&y”) be given estimates of the accuracies of (y if y?,y") 
An error measure taking into account scale differences in accuracies 
is defined as 



where g is a function interpolating the unknown (x^ *5^ ,#?) 

defined below. A smoothness increase for g taking into account 
estimated scale differences in smoothness of g is defined as 


•M 


( 6 ) 


N 

y l-i 1 

• j i 


i“l x i 


1 

where g is a function interpolating the given (x i ,y^ ,y * t y”) . g and. 
g are defined in each interval |x^ ^ t x^J as a fifth degree poly- 
nomial in x interpolating (x^.y^.y^ty^i) and (x^y^y^yV) » 
respectively ( x i _ 1 *5 > i _ 1 »^ i '_ 1 *^- , _ 1 ) and ^ »^»£") • 

The determination of the unknown corrected points 
( x i’^i , ^i’^i) is ^ ase< ^ on m i n i m i sa ti° n of the expression 


l « [S] + (1-0b [ft] 


0 <1 


(7) 


where £ is a weighting parameter which is used to balance the 
error and smoothness measures in such a way that e [g] takes 
approximately its expected value 3(N+l). (Note that the terms in 
e[g] should he of order 1 in the final result). 

For fixed £ the expression to he minimized is a quadratic form 

\ 

in the unknowns} its minimum is determined hy standard methods. 

£ is determined iteratively. 

From the output of the aerofoil programs tables of points 
( x i ,y i ,0 i ,i//,R i^ 0n sec ii° n contours may he composed. These 
tables are converted to (x^,y^ f y?,yV) tables and corrected separa- 
tely for the upper and lower half of the section contours. The 
accuracies (Ay^ ,Ay * f Ay!*) are determined by rules given in table 11 
of section 4.7.2 (oard input specification of the correction 


Y\-r+r\ rmr>am \ 

— “y • 


In the smoothing correction program the correction is 
(slightly) biased in suoh a way that y^ values are more likely 
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corrected, than y* and y? values. 

^ 1 

Vast experience with about twenty aerofoils in various situ- 
ations (internal coherence of corrected data, model making and 
windtunnel testing, control computations with panel methods 
for subcritical flows) has shown that the smoothing correction 
method gives corrected data that are sufficiently aocurate for 
engineering purposes, provided a redundan cy of d ata ( at least 70 
points per section side) is corrected. 

AEROFOIL DESIGN PROCESS 

When a transonic shock-free q.e. aerofoil is developed, a 
desigi process has to be followed in order to fix the parameters 
that determine the section shape. 

Experience has learned that a random approach in this design 
process is undesirable . In order to save efforts a certain policy 
has to be followed. The rules of this policy have been incorporated 
in the flow chart of the design process of figure 4 . 

Roughly speaking the design process comprises three stages. 

In the first stage the parameters 7^ ,e Q , a andTare determined from 
desired values for t/c and C^ and a desired type of loading, 

and a decision is made whether or not the gap at the t.e. will be 
closed. In the seoond stage the nose shape is optimized to approach 
desired characteristics as dose as possible} this fixes the re- 
maining parameters. In the third stage detailed computations of 
the section shape are performed. 

During the first two stages if is necessary to check repeated- 
ly whether limit lines and/or branch points disturb the section 
shape. 
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Turing a design process for an aerofoil the flow chart of the 
desi^; process has to be used together with the flow chart for the 
data flow through the programs of Fig. 5 (section 4.9) • This flow 
chart shows how the parameters are put into the various programs. 


COMPUTER H? 0® AMS AND NUMERICAL EXAMPLES 


General description of programs 

The design of a transonic shock-free q.e. aerofoil is performed 
with the following five ALGOL 1 ) CDC-6600 computer programBJ 


program name 

CjfeFF 

INTC/NS 


program main function 

oomputes tableB of coefficients 

computes constants in compressions for 


'N/ , '■X/ 

*b “ ld y b 

rsJ 

SADDPNT searches for the saddle point of \JA near 

expected t.e. position on (T*, ©) surfaoe 
AIRFOIL oomputes parts of aerofoil section contour 

and/or position of sonic lines 

SM^TH oorrects aerofoil data by special smoothing 

correction method 

Details about the functions, inputs and outputs of these programs 
are given in sections 4.3 to 4*7. 

Various tables of data are written to or read from a magnetic 
tape by the first four programs. The organisation of the data on 
this tape as fair as needed by a user who wants to put the programs 
into operation is explained in section 4 . 8 . 

The listings of the programs are presented in appendix A to E. 

A flow diagram presenting the flow of data through the programs is 
discussed in section 4*9. 

The card inputs are free formatted except where specified otherwise. 


l) An ALGOL compiler successfully used i s the ALGOL-60 PSR302+3IC 
compiler of the CDC Computing Centre, Rijswijk, The Netherlands. 
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4*2 Numerical examples 

The input and output descriptions in sections 4.3 to 4*7 axe 
illustrated by numerical examples showing details of the input and 
out put . 

The examples should he completely and exactly reproduced by 
a new user of the programs in order to test all functions of the 
programs and/or to gain enough initial experience with the use of 
the programs. 

4*3 Program c/EFF 
4*3*1 Function 

C^EFF computes the complex coefficients that are needed in 
INTC0NS, SADDPNT and AIRFOIL. The coefficients depend upon e , a 
and T . 

4*3*2 Input 

The data needed by C^EFF are taken from cards. The card input 
specification is given in table 2. The input of the example is 
given in table 13. 

4.3*3 Output 

The results of C^EFF are output to the line printer and to the 

tape. 

a The data output to the line printer are: 

I CASE, 6 q , a, T. 

II the complex qualities and defined in eq. (3.9) of the 
Ref. and the quantities /c^/, /i^/t ^l/^ e * 

N.B. The value of j; j is needed for the card-input 
specification ror AIRFOIL, see table 7 of 
section 4*6.2. 

III T^L, M. 

IV ten integer numbers (numbers of terms in power series). The 
computation times of C^EFF depend approximately linearly upon 
the largest of these ten numbers. 

V tables of the complex coefficients. 

The output of the example is given in Fig. 6. 
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b The data output to the tape are: 

I one record with M, T0L» CASE, e , a.,7 1 , 

II one record with all complex coefficients. 

4.4 Program INTCi^NS 
4-4.1 Funct i on 

INTC^NS computes constant terms in the expressions for and 
y^. The constants terms depend upon an&T . The constants 

are needed in AIRFOIL. 

4-4.2 Input 

The data needed by INTCjZiNS are taken from cards and from the 
tape. The card input specification is given in table 3. Reading 
from tape is possible if C^EFF has first been used. The input of 
the example is given in table 13. 

4.4.3 Output 

The results of INTC^NS are output to the line printer. These 

are : 

I CASE, a ,a ,T. 

o 

II the complex quantities and ^ defined in eq. (3.9) of "the ref. 

and the quantities /^^/, /^/t ^ e * 

III two integer numbers (numbers' of terms in power series). The 
computation times of INTC^NS depend approximately linearly 
upon the largest of these two numbers. 

IV for each value of ( t^ D specif ied in the input: 

- the value of < t 00 

six lines with four real numbers 
The 24 real numbers are the constant terms. They are needed 
for'the card input of AIRFOIL, see section 4*6.2. 

The output of the example is given in Fig. 7. 

4*5 Program SADDPNT 
4 , 4,1 Function 

SADDPNT searches for the location of the minimum of the saddle 
point of y/^ near the expected t.e. position on the (A®) surface 
(see section 2.4). The saddle point is characterized by the rela- 
tions y/. m 0 , w - n. 
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4.5.2 


Input 


The data needed by SADDPNT are taken from cards and from the 
tape. The card input specification is given in table 4* Heading 
from tape is possible after the use of C0EFF. The card input of 
the example is given in table 13. 

4.5.3 Out put 

The results of SADDPNT are output to the line printer. These 
are* 

I CASE, e o , a % T ^ 

II at most six blocks of five lines} each line contains values of 

C T, ©(degrees) , andl^ respectively. 

^ 0 

One block contains the results of one step in the iterative 

search process for the location of the Baddle point. 

The line after the last block contains the desired values of 

< T, 9,^,^ i n the saddle point provided /V^ / and /l/^ / 

0 0 

are small enough (typically <10~^ , 10 - ^ respectively). 

If /y^ / and /y^ / are not small enough a new search has to 
*T © 

be performed starting from improved initial estimates 

0^ ^ . If" is not small in the saddle point (/l/^/< 

about 0.02) the aerofoil cannot be closed at the t.e. 

The output of the example is given in Fig. 8} y^ in the saddle 
point is probably small enough for a successful attempt to close 
the gap at the t.e. 

4.6 Program AIRFOIL 
4.6.1 Functions 

AIRFOIL computes parts of (either uncorrected or closed) 
aerofoil contours and /or the corresponding sonic lines. 


4.6.2 Input 

The data needed by AIRFOIL are taken from card's and from tape. 

The pile of cards to be read consists of two parts. The first 
part is completely independent of the functions desired from the 
program} this part is specified in table 7. The second part 
specifies what functions of the program are desired and what 
calculations are to be performed. The input specification for the 
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second part is given in table 9 « 

Heading from tape is possible after the use of C^EFF. The input 
of the example is given in table 13. 

4.6.3 Out put 

The results of AIRFOIL are output to the line printer. These 

are 

I e 0 * a ,T , | .CASE, 

II if a closed aerofoil is aimed at ,6 , and some other quantities 

c c 

related to the correction stream function \f/ c * 

III 24 real constants. When a closed aerofoil is not aimed at these 
are equal to the 24 real constants input from results of 
INTC0NS, see table 7. 

IV data for the stagnation point including 

V either data for oontour points or data for sonic lines. 

The output of the example is given in Fig. 9 (the Bonio line 
is situated inside the aerofoil). 

4.7 Program SM$0TH 

4.7.1 Funotion 

SM$ 0 TH corrects the aerofoil co-ordinate values obtained with 
AIRFOIL for large errors of stochastioal nature (section 2.6) by 
the smoothing correction method outlined in section 2 . 7 . 

4.7.2 Input 

The data required by SM^0TH are taken from cards. The card 
input specification and the input of the example are given in table 
10 . 


4.7.3 Out put 

The results of SM00TH are output to the line printer. They 

are 1 


I 

II 

III 

IV 


a table of the first part of the oard input. 

a table of the aerofoil co-ordinate values (x.,y., 0 . .(* 
, , . 1 1 1 i 

modified to [x^y^.yj.y^ j values. 

a table of the second part of the card input. 

2 -2 

a table of weights p^ t where the p^ are equal to the 
denominators in the expression ( 6 ) for s [ glin section 



2.7. 
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VI 


for each iteration step in the iteration process on 

e . ^ (see section 2.7 for the meaning of £) information 
which can be used to check the course of the iteration process} 
this information is of interest for the analysis of details of 
the computation process only. 

a table of corrected values x^,5K together with the 


corrections 5^-y., 9 ■ -y ’ ,$"-y" • 

VII a table o f int erpol ated re sults } in each int^ryal__^x^_, x 

i«0(l)N-l, five values of g, g*, g m , and g^are printed 

in order to permit an inspection of the fluctuation behaviour 
of the corrected interpolating curve g(x) (defined in section 

2 . 7 ). 

a * 

VIII a table of corrected values x.^,#.,©^, (l/R)^ together with 
corrections y i ~^ i . ^-9^ (l/R).-(l/H).. 

The results have to be inspected for correctness in two ways. 

The corrections y^-£^ printed out in the last table should be of the 
order of magnitude of the corresponding Ay i specified in the input 
and be randomly distributed in magnitude, except possibly for 
roughly 20 J> of the values, where the corrections y- are allowed 
to be two orders of magnitude larger than the corresponding accu- 
racies. The average value of y^-£^ is allowed to be slightly biased 
to non-zero values over large parts of the aerofoil contour, 
provided the bias is of the order of magnitude of the corresponding 
accuracies. Too much bias over a part of the aerofoil contour 
implies that the accuracies are better than assumed, and that SM//TH 
has to be rerun wi'ih smaller accuracy estimates. A second way of 
inspecting the results is to analyze the behaviour of g” in the table 
of interpolated results} in each interval £x^, x i + ^ ] §** is permitted 
to fluctuate by an amount till about 3/4 * the average value of g" 
in the interval. Larger fluctuations in some interval £x^,x^ + ^Jin 
general indicate errors in y^ and/or y^ + ^ considerably larger than 
the corresponding accuracy specifications} very large fluctuation 
(2 or 3 * average value of g") are not permitted and should be cor- 
rected by a rerun of AIRF/lL giving improved values of the suspected 
y^ and/or y^ + ^ and a rerun of SM//TH. 

The output of the example is given in Fig. 10. 
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4.6 The magietic tape 

4.8.1 Function 

The magnetic tape is used to save and to make available to the 
programs INTC^NS, SADDPNT and AIRFOIL tables of complex coefficients 
generated by the program C$EFF and tables of so-called Chaplygin 
functions (see the reference ^appendix A for the definition of these 
functions) . 

4.8.2 Data organisation on the tape 

The data on the tape are arranged in two files. The first 
file contains 252 records of Chaplygin functions, for each value 
of <T mentioned in table 12 one record. The second file contains 
an even number of records, whioh are written to the tape by the 
program C^EFFJ each time C0EFF is used two new records are added 
to the second file.' 

The Chaplygin functions are only available for the values of 
't given in table 11. This restricts in general the choice of the 
values of T - and that have to be specified in the input of the 

programs. Detailed rules are given in the input specification 
tables. - 

The Chaplygin functions can be made available to users by NLR 
upon request . 

When the program package is put into operation for the first 
time by a user, the tape should be only provided with the first 
file with Chaplygin functions} after the first file two 
end-of-file marks must be present. 

4.9 Data flow chart for the programs 

The programs C^EFF, INTC0NS, SADDPNT, AIRFOIL and SM00TH 
have to be used in a certain prescribed way because the latter 
mentioned programs use data made available by the eai'lier mentioned 
ones. A flow chart of the data showing the relation between the 
inputs and outputs of the programs is prescribed in Fig. 5 . 
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Table 2 


Card, input specification for C0EFF 


name of 
variable 

advi sed 
value 

comment 

M 

100 

highest subscript of coefficients 

t^l 

10- 10 

desired relative precision of coefficients 

CASE 

integer 

sequence number for parameter combination 
e Qt a, | do not use a sequence number 
previously used, as otherwise the tape will 
be used in an erronous way by the programs. 

e 

0 

0.5<e Q <0.9 

parameter determining thickness ratio 
l-e o /l+e o of ellipse in incompressible flow 

a 


incidence of ellipse in incompressible flow 


- 

(radians) 

r 

/V/ > 0.05 

flow circulation! values of T with /T/ < 0.05 
increase computation times to over 30 min. 
on a CDC-66OO computer and impairs the 
accuracy of the results. 
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Table 3 


Card input specification for INTC^NS 


name of 
variable 

advi sed 
value 

CASE 

table 2 

e 

table 2 

0 


a 

table 2 

T 

table 2 

N 


< T Jl 

H 

c 

CO 2 

o 

CNJ 

r~\ 

« 

1 

1 

r— 4 

1 

1 

e 

o 

u 

<W 

1 

(0 

1 

1 

1 

© 

3 

H 

' 5 

1 

1 

+> 

© 

© 

H 

(O n 

© 

® J 


comment 


sequence number of parameter combination 
e , a.7 7 , see table 2. 
thickness ratio parameter, see table 2 
incidence of ellipse in incompressible flow, 
see table 2. 

flow circulation, see table 2 

total number of values of ^subsequent ly 

specified, 

when the integration constants for fixed 
e , a, T . 

may be needed for various < Z' W , all these l t^ 0 
values should be specified, aB the computa- 
tion time in fact only depends on e Q ,a, T 
and not upon . 

a select only those *1^, values that are 
specified in table 11 of section 4*8 
b specify the values to eight places behind 
decimal point and in increasing order of 
magnitude 






Table 4 


Card input specification for SADDPNT 


name of 
variable 
or array 

advised 

value 

comment 

FIN 

table 5 

array of 62 integer numbers, specified 
in table 5 

RIM 

table 6 

array of 63 integer numbers, specified 
in table 6 

CASE 

table 2 

sequence number of parameter combination e , 
0 , 7 *, Bee table 2 

e 

0 

table 2 

thickness ratio parameter, see table 2 

a 

table 2 

incidence of ellipse in incompressible flow, 
see table 2 

T 

table 2 

flow circulation, see table 2 


table 3 

free stream value of t" determining M^,, taken 
from table 3 

i l) 


first estimate for value of T" in saddle 
point | if better estimates are not available 
take <t S 0.6 * <t . 

c 


c » 

first estimate for value of 0 in saddle point 
if better estimates are not available take 
0 ^ - - 0.7 oc (degrees) 

C 
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-1225711501 *1121313101 *1125721101 *1125911401 *_1 1 257 11 1 02_._-_13257.il 20 1 

*1 12571 H'03 ' ♦ 1102145104 *1102254205 *1125711106 *1125611507 *1104145108 

♦1104254209 *1125711110 *1125611511 -2225711501 *2121313101 *2125721101 

♦2125911401 *2125711102 -2325711201 *2125711103 *2102145104 *2102254205 

♦2125711106 *2125611507 *2104145108 *2104254209 *2125711110 *2125611511 

-3225711521 *3123313121 *3125721121 *3125911421 *3125711131 -3325711221 

♦3225711423 -3124313523 -3125721523 -3125911223-3125711533 *3325711123 

♦3225611220 -3124431120 -3125612120 -3125811420 -3125611122 *3325611520 

44«41* 35*31 *29* 25 *22*20*16* 14,10.7.5*1* 


TABLE 5 

SPECIFICATION OF INTEGER ARRAY FIN (NEEDED IN TABLES 4 AND 7) 


♦0»*0»*0»*0»*0»*0*-2*-2**0**0**0*-2»— 2**0**0**0»-l*-2*-2»-2*-2» 
-2»*0**0*-2**0**0»*0»*2**2**0*”l*-2*-2*-2»-2»-2»*0»*0,-2»*0,*0» 
♦0»*2»*2**0»*1**0»*0**0»*0»*0**0**0»*0**0**0»*0**0»*0**0»*0»*0» 

TABLE 6 

SPECIFICATION OF INTEGER ARRAY RIM (NEEDED IN TABLE 4) 
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Table 7 


specification of first of two piles inputs cards for AIRFOIL 



advised 

value 

comment 

FIN 

table 7 

array of 62 integer numbers, specified in 
table 7. 

IM 

table 9 

array of 756 integer numbers, specified in 
table 9 

CASE 

table 2 

sequence number of parameter combination 
e Q , a , T , see table 2 

£ 

O 

table 2 

thickness ratio parameter, see table 2 

a 

i 

table 2 

incidence of ellipse in incompressible flow, 
see table 2 

T 

table 2 

flow circulation, see table 2 

Re q 

output of 
C^EFF 

real part of complex constant this 


number has to be taken from the line printer 
results of C$EFF, see the output description 
in section 4*3.3, point a 11} specify Re £ 
to all decimal places output by C^EFF 

Im 5 1 

1 

output 

of 

C0EFF 

imaginary part of complex constant 
see comment after Re 

*1 

0(1) 

real parameter governing nose bluntnessj 

standard value is zero 

x ? 

0(1) 

real parameter A^ governing camber} standard 
value is zero 

T 

E 

1 or 0 

T m 1* aerofoil will be closed at t.e. 

E 

position 

T - Oi uncorrected aerofoil (aerofoil will 
E i 

have gap at expected t.e. position). 

T0L 

io" 5 

precision required in various tests 

rax it 

> 10 

maximum number of steps in various iteration 
processes 

TL 

oo 

table 3 

free stream value of *T determining taken 

from table 3 (£« has to be taken from table 
11). 
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Table 7 (continued) 


Specification of first of two piles inputs cards for AIRFOIL 


name of 

variable 

or array- 


24 constanta 


but put of 
SADDPNT 


advised 

value 


out put 
of 

INTCjZfoS 


output of 
SADDPNT 


comment s 


24 real constants; these constants have 
to be taken from the line printer results 
of INTC0NS, see the output description in 
section 4 . 4 . 3 , point IV. The four numbers 

of— each-of -the-six- - 1 -ines-mentioned there 

should be punched on one card in the order 
as they are printed out; the six cards 
obtained so have to be placed in the Bame 
order as the six lines. 

omit this number if T_ ■ 0 (if aerofoil has 

Cj 

gap at t.e.).T c is the value of 7T at the t.e.} 
the value has to be equal to or very close 
to the value of T - in the saddle point of 
Y b found with SADDPNT, Bee the output des- 
cription of SADDPNT, section 4*5*3 point IIj 

T need not to be taken from table 11 
c 

omit this number if T^» 0 (if aerofoil has 

gap at t.e,), 0 is the value of 0 at the 
c 

t.e.; the value has to be equal to or very 
close to the value of 0 in the saddle point 
of found with SADDPNT, see the output 
description of SADDPNT, section 4 . 5.3 point 
II. 

omit this number if T^-O (if aerofoil has 
gap at t.e.) . 

P - 0* W will be made small 
c 

P f Os p should approximately equal to the 

value of p ^ printed out by AIRFOIL 

after a run of AIRFOIL in which Y c 

has been made small by setting p ■ 0 } 

for the value of p . meant see the 

min 

output description of AERF^IL section 
4*6.3 point IV. 
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T A t? L E 8 

l -••ECir iCAT I O N OF INTEGER ARRAY IM (NEEDED IN TABLE 7) 
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Table 9 


Specification of last of two piles input cards for AIRF0IL 

(first part see table 7) 


name of 
variable 


advi sed 
value 


comment 


XY 


UF 

UR 

LF 

-LR- 

US 

LS 

TP 


two symbols to be punched in the first and 
second position of a card 


-The -two -symbol- s- may -take various - values, 
specify the functions 
desired from AIRF0IL 


They 


symbol value: 
X - U 


R 


Y . 
XY 


TP 


desired function: 
perform computations for upper 
part of aerofoil 
perform computations for lower 
part of aerofoil 
compute points on front part of 
aerofoil contour 
compute point 8 on rear part of 
aerofoil contour 
compute point 8 on sonic line 
compute t.e. point (only for 
closed aerofoils, Tg.l) 


if Y„F or R 


(computation of points on aero- 
foil contour) 


1. For each card beginning with UF,UR,LF or LR poinfts 
on an aerofoil contour will be computed. This 
occurs by iterative processem on 0 for a se- 
quence of increasing values of < T. 

_2 The sequence of values ofTis, in principle, 

defined byT.T, (aT)T , whereat, . , 
begin ' ' end begin* 

^end the ®tep si ze A Tare given. However 

in order to obtain better density distributions 

of points the step size can be varied by 

AIRF0IL between two limits A?" . and AT 

mm max 

3. The step size in part of the iterative processes 
on 0 is A©. 

4 The iteration process starts at T.T^g • » 

©■0. . , where 0, is a rough estimate 

begin* begin 

of the value of 0 on the aerofoil contour at 

T-T 

'begin 

5 The step size A0 for ma Y enlarged 

to Ae ^ in order to permit rough guesses of 
0. . (+ 30° error) . 


beein — 
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Table 9 (CoirS'ed) 


name of advised 
variable value 


comment 


6 <C, . , T „ and the step sizes A*t, A . and 

— begin’ end ’ mm 

AT should be for the two ranges of t indi- 
max 6 

cated below integral multiples of the values 

listed to the right. 


j 

! 

i 

i 

j 


T- 


begin 


> 0 


1 <r 

! ' end 


AT 


mm 

I 


I a«t 


max 


>0 

>0 

> 0 
> 0 


begin 

(degrees) 


A6. , . 

(degrees) 

ttegrees) 


3.0 

4 1.0 


i 

i 

i 


range of : step sizes multiples of: 

0.0< < t$ 3.25 l/l200 - 0.0008/ 

0.25^0.32 1/100 . 0.01 

This implies that for A^l . < 0.01 it may be 
* mm J 

necessary to perform seperate calculations for 

each of the two 9T ranges. 


first value of for which an aerofoil point has 
to be computed (remarks 2 and 6 ) f specify at 
least 8 places behind decimal point . 

nominal step size in <T (remarks 2 and 6)} speci- 
fy at least 8 places behind decimal point 
last value of T for which an aerofoil point haB 
to be computed (remarks 2 and 6)j <t end > ^begin* 

specify at least 8 places behind decimal point, 
minimum step size in ^(remarks 2 and 6)j A*C ^ 
A^mi J specify at least 8 places behind decimal 
point. 

maximum step size in T( remarks 2 and 6)j 
Af^ AT" max t specify at least 8 places behind 

decimal point. 

estimate of 0 in degrees in first aerofoil point 

for T- (remarks 4 and. 5 )f the sign of 

6 begin de P en(iB upon UP,UE,LF,LH and has to be 

chosen in accordance with the sign conventions 
for 9 indicated in figures 2 and 3 of section 

2.3. 


initial step size for 0 forC-^, (remarks 

4 and 5) b6gin 

step size for 0 for “T/ (remark 3) 


2 sxceeds the maximum value of fin a 

suction peak at the upper or lower side the 
program finishes the computations before ^ 
at approximately this maximum value of C. 
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Table 9 


name of 

advised 


comment 

variable 

value 





8 Card examples for coarse distributions of points 



(assume 
UF .01 .02 
UR .08 .01 
LF .01 .01 
LR .08 .01 
UR .07 .01 

"‘Card “examples 

.10) 

.32 .01 .01 + 85 .O 3.0 1.0 
.32 .01 .01 - 15.0 3.0 1.0 
.25 .01 .01 - 85 .O 3.0 1.0 
.25 .01 .01 + 10.0 3.0 1.0 

.07 .01 .01 - 15.0 3.0 1.0(one point only) 



for fine distribution of points on 



entire lower 

side of aerofoil contour. 



LF .01 .01 

.06 .01 .01 - 85.0 3.0 1.0 



LF .062 .01 

.25 .000833333 .01 - 30.0 3.0 1.0 



LR .08 .005 

.25 .000833333 .01 + 10.0 3.0 1.0 



LR .075 *01 

.075 .01 .01 + 10.0 3.0 1.0 



LR .07 .01 

.07 .01 .01 +10.0 3.0 1.0 (one point 




only) 



LR .065 .01 

.065 .01 .01 +10.0 3.0 1.0 (one point 




only) 



LR .06 .01 

.06 .01 .01 +10.0 3.0 1.0 (one point 




only) 



if Y«S (computation of Bonic lines) 


N, 




> 0 


_1 For each card beginning with US or LS a sequence 
of values of 8 are specified for which Bonic points 
will be computed. The value of RT is l/6. 

2 Perform sonic line calculations after section con- 
tour calculations so that the sonic line values 

of 0 on the section contour can be estimated. The 
flow field values of 8 on the sonic line lie between] 
these two values 

3 A good density distribution of points is obtained 
if the intervals in 8 are chosen as indicated by 
the following table. 

if. 

1.25 

0.5° 

0 . 25 ° 

4 The signs of 8 depend upon US f LS and have to be 
chosen in correspondence with the sign convention 
of 8 indicated in figures 2 and 3 of* section 2.3 


25 0 

> 

/e/ > 25 n 

/8/>12.5° 

: A6 
: A6 

12.5 

> 

/e/> 5° 0 

1 A0 

5° 

> 

/©/ > 1.5 

: A8 

1.5° 

> 

N 

1 A8 


number of values of 0 to be specified 
first value of 8 on sonic line (degrees) 

second value of 8 on sonic line (degrees) 
last value of 8 on sonic line (degrees) 
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Table 9 


name of 
variable 

advi sed 
Value 

comment 



£ Example for upper side of airofoil for coarse 
density of points 

US 19 40.0 30.0 20.0 15.0 12.5 10.0 8.0 6.0 

4.0 3.0 2.0 1.0 0.0. -1.0 -2.0 -3.0 -4.0 -6.0 -8.0 

if XY »TP (computation of t.e. point for closed 
aerofoils, T «l) . 

hi 

e 

(degrees] 

% 

e 

c 

choose “Cm T see table 7 
0 

choose dm Q , see table 7 
c' 

After having terminated the specifications for XY « 
UF,UR,LP,LR, or for XY«US,LS, or for XY-TP a card 
specifying new values for XY may be defined, or 
the input of cards may be terminated. 
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Table 10 


name of 
variable 
or array 

advised 

value 

i 

i, > 0 

i 

1 

N 

N > 0 

i 

h 

[vw^ol V X 1 

{ x i »y i e i* ( 1 / R ) 1 } 

X 1 <X 2 

fV y N'V l/R) n] 

Vl <X H 

i„ 

i 2 >0 

2 


£ 

£■*1 • 0 

^O 

0.01 

A 

0.1 


1.0 

4 3 

1.0 

4 4 

1.0 

"5 

1.0 

N 


(T 


K, 

1 

k max 


K 

10 

max 


tol. 

10~ 5 

1 



Card input specification for SK00TH 


example comment 

value 


1601 identifying sequence number for first 
part of card input 

33 maximum subscript i of the given points 

{x. l y. t e if (i/n) i } 

k The point b are numbered from 0 to N 
Qc inc lusive 

5 I s 


^ i\ i * * - 

' 5 radians) and l/R values 
^ cq , 

. ^ obtained from AIRFOIL, arranged from l.e. 

^ {tf ^ to t.e. The points are numbered from 
^ $ zero to N. The UDDer and lower side of 


' s k ' zero to N. The upper and lower side of 
'j, ^ an aerofoil have to be corrected by two 

v« ^ g 

seperate runB of SM$$TH. Avoid /©/- 2 . 

See remark 3 for t.e. derivative 


1602 identifying integer sequence number for 
second part of card input 

1.0 first estimate of the weight parameter 

e - y^, c.f. section 2.7 for the 
meaning of £. 

0.01 weight, increasing accuracy of all y^ by 
factor i 

o 

0.1 weight, increasing accuracy of all y* by 
factor 

1.0 weight, increasing accuracy of all y? by 
factor f 


fixed real dummy numbers 


number of different accuracy combinations 
{(Ay)j» (Ay*)“j, ( A y")jt j} specified 

subsequently below 

fixed integer dummy number 

maximum number of iterations to desired 

value of e permitted 

desired relative precision of corrected 
results. 







Cont f ed 






{(Ay) 2>( A y')2»( A y ,, )2» J 2 } 


10 


s 


!0 


I 

\ 

V) 

[k 


I 

$ 


I 
is § 
\0 *0 


desired absolute precision of cor- 
rected results. 

squared estimates of accuracies Ay, 
Ay* and Ay" of y,y*,y M Z squared 
estimates of accuracies of y,0,l/R 
for the points 0 to inclusive 
(remark l). 

squared estimates of accuracies Ay, 
Ay* and Ay" of y,y*,y n for the points 
j^+1 to j ^ inclusive (remark 2). 

squared estimates of accuracies Ay, 
Ay* and Ay" of y,y*,y" for the points 

,+1 to j„-N (remarks 2 and 3). 

<r cr 


Experience has shown that the follow- 
ing rules for the accuracies give in 
general good results. Sometimes 
inspection of the output of SM00TH 
(see section 4*7.3) may suggest 
better estimates of accuracies that 
improve the results, however. 

_1 The data of the points on the 
section nose where *C < about 0.7 
0.7* ^are free of errors. By 

specifying the accuracy of these 
-15 

data equal to 10 unnecessary 
correction of these data is a- 
voided. The accuracy specification 
of these first, say 7» points is 
therefore |l0*’^ < ^,10 ^,10 ^,6j 

2 The other data have in general 
the following accuracies: 
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/<r-%y> .04 

/t .04 

front part o: 
aerofoi 1 

A-?«/ < .04,' 

rear part of 
aerofoil 


Ay-10 H on upper side of aerofoil 
Ay»10 3 on lower side of aerofoil 
Ay' . 10 -3 

Ay" - 10“^ on front part of aerofoil 
Ay" - 10*3 on rear part of aerofoil 

'Ay - 10“ 2 

Ay'-10~ 2 
Ay"- 1 Ct3 


The values of Ay, Ay' and Ay" are uncriticalj they are 
allowed to be in error by factors 10. 

3, In order to guarantee that upper and lower parts of 
the corrected aerofoil accurately match at the t.e. 
(these parts have to be corrected by separate runs of 
SM00TO) "the accuracies of the tail point should be 
specified as follows: Ay - 10 r_ I5(no correction on y 

values), Ay* - 10 -3 , Ay" - 10 +1 5 (values of curvature 
in tail point are unknown} the guessed value has no 
accuracy). For the input value of l/R ; in the tail 
point one may take a rough guess obtained by extra- 
polation. 

4 A full example of the accuracy specification could 


be: 

1Ct30 

10~ 30 

o 

l 

o-< 

o 

6 

(first Beven points on nose) 

10“ 8 

10“ 6 

10” 4 

12 

(accuracies of 

points 7 to 12 

10- 8 

10"* 6 

10” 6 

50 

on nose) 
(accuracies of 

point 13 to 50. 

10-4 

10" 4 

10“ 6 

60 

A -<zj >0.04) 
(accuracies of 

point 51 to 60, 

1& - 8 

10- 6 

10- 6 

69 

/T -*./< 0.0 4 ) 

(accuracies of 

point 61 to 69 

io-*5 

10- 6 

10 +15 

70 

/ < T-T a /> 0.04) 

(accuracies for tail point) 


In this case N, 


1.0 1.0 1.0 


.0 three fixed real numbers 

..0 

1 fixed integer number 


-0 -1 

:0 


i^< 0: termination of input specification and computa- 
tions} 

i^>0: continue input specification on second line of 
this table with N. 






Table 11 


Values of <T for which Chaplygin functions 
are available on tape. 

.01( .01) .05 

.05(Vl200 . .0008^). 1658^ 

1/6 

• 1675 ( 1 /l 200 - .0008/). 25 

.25(.01).32 


Table 12 
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cawn input rnfrr 


tOO <-10 1” n.7l 0.0*4 o./H 


CAPO INPUT iNTfONS.. 
IP 0.71 0.0*5 0.75 

7 

0.075 

0 .075 w 33333 
<1.0?66€>6667 
0.0775 
0.07P333333 
0 . 070 1 66667 
0 . 0 “ 


CARO IhlpUT SAOOpA'f.. 


-12257)1501 
*1125711103 
*1 104?5*209 
*2125911001 
♦2125711106 
-32257)1521 
♦3225711423 
♦ 32255H220 


*1 121313101 
♦1102145104 
♦112571 1 1 10 
♦212*71 1102 
*?3?5S\\507 
♦3123313121 
-312*313523 
-31?*4lll?o 


♦1125721101 
♦ l 1 02254205 
♦112561 1511 
-232571 1 20 1 

♦2304145105 

♦3125721121 

-3125721523 

-3125612120 


♦ 1 125911401 
♦1125711106 
-222571160 1 
♦2126711103 
♦?10i*254?05 
*312591 1*21 
-312541 1223 
-112581 1*20 


♦1125711102 
♦1126611507 
♦2121313101 
♦21021451 04 

*?\ 2vnmo 

*312571 Jl 31 
-312571 1533 
-3125611122 


-132571 1201 
*1 1041451 OP 
♦2125721101 
♦2102254205 
♦ 212 S 611 S 11 
-3-32571 1221 
♦332571 1123 
♦3325611520 


44*41 .35*31 . 29. 25 » 22. 20, 16. 1*. 
. 0 * . 0 . . 0 * * 0 * * 0 * * 0 »-?.- 2 « * 0 . * 0 * 
* 0 .* ♦. 0 ,».*. 0 .*.» ?„*.♦ o i 

«0»*2**2»*0**l**0.*Q.*0*.0«*Oi 
18 0.71 0.0*5 0.75 

0.0775 0.0*65 -3.30 


10,7.5.1* 

• 0 .- 2 * - 2 •♦ 0 ** 0 , ♦ O .- l ,- 2 ,- 2 . - 2 , - 2 , 
-- 1 « - 2 »- 2 *-?»- 2 *- 2 ** 0 * * 0 , — ? , . 0 , * 0 * 
♦n..o**o..n.*o**o,*o».ft.»o,*o,.o. 


INPUT MKFntt.. 


-12257)1501 
♦1125711103 
♦110*254209 
♦ ?l?59D40l 
♦212571 1106 
- 32257115^1 
♦322S7J 1423 
♦3225611220 


4 1,35 


*1121313101 
♦110214510* 
♦112571 1110 
♦2125711102 
♦2125611507 
♦3123313121 
-312*313523 
-312*431120 
20 


1 12572110) 

) 102254205 
1 12561 151 1 
23257U201 
2104146105 
3125721121 
•312672)523 
3125612120 
16,14,10,7,5,1 


2591 1 40 i 
257) 1)06 

•257] 1501 

25711 103 
0425*209 
2591 1*21 
2591 1223 
25811*20 


♦o,*o**o. 

♦ 0. .0. *0* *0, ,0, 

♦0.*0.*O.*0..0 

. 0 . . 0 , ,o. 

1 ,,0, .0 

♦ 0, ♦ 

♦o.*o.*o* 

♦0. .0. *0* *0, *0. 

♦0,*0,*l. *0.*0 

♦o»*o. *o. 

0 « ♦ 0 , ♦ 0 

*<»•* 

♦o.*o.*o. 

♦o«*i,*o»*o,*o« 

.0,*0.*O,*0,*0 

♦o.*u.*u» 

♦ 0 » ♦ 0 . ♦ 0 

.0, . 

♦o,*o**o. 

-?♦ *2, -?» -?♦-?, 

*0. -2 

♦o.*o. *o. 

-1 ,-?.-2 


-2. *0.*0* 

-2.*0. *0‘*0f *2, 

*2* *0.-1 .-2.-2 

-2. -2, -2. 

♦ft. .0,-2 

♦ 0,* 

♦ 0 , ♦?* *2* 

-2, ♦ 1 , *0* *9* *0, 

.0. ♦?, *0. *0. .0 

*0.*0.*2* 

♦o,.n,,o 

♦ 0.. 

♦0**0, *o. 

♦ 0, *2. -2. 

♦0, ♦?♦-?. -2.-2 

♦0..0..0, 

-1.-2. -2 


-? * ♦ 0 » *0 * 

-2f0f0»*0.*2. 

♦2. *0,-1. -?, -2 

-2. -2. -2. 

♦0. *0,-2 

♦ 0.. 

♦0,*2.*2. 

♦ o* ♦ i , *p* *o, *o» 

♦0.«0.*0..0.*0 

*0, *0. *0. 

*0. *0. *0 

♦ 0, , 

♦o. *o»*n. 

-2, *0» ♦O* »0, *0, 

♦ o. *0, *0. ♦*>. .0 

*0,*0»*Of 

» 1 , *0 • *0 

*o.. 

♦ 0 * ♦ 0 • *0 ♦ 

♦O,.o«*n,*0,«0, 

♦o. *0. ♦ 1 . *0. *0 

♦ o. *0* *0. 

*0. *0. *0 

♦ 0. ♦ 

♦ 0, «0* «0* 

-?»♦!» ♦0**0.*0* 

♦ 0.*?.*0..0. .0 

♦0* ♦0, ♦?♦ 

.0, »0. *0 

♦ 0. * 

♦ 0* *0, *0* 

♦ 0,*0.*0fl f-1 » 

-1 ♦♦0,*0,-l .-1 

. *0.-1 » 

♦o.-l .-1 


-lfl.fl. 

♦o,*i»*o»*n»*o» 

.0.-1* *0, -1,-1 

-1 f-l.-l ♦ 

♦IflfC 


♦ 0, »0» *0, 

♦o,*i,*o,*o**o. 

• o. *0. *0, ,1), .0 

♦0, »o. *0f 

♦0**0, *0 

♦ 0.. 

♦0,*0. *0, 

-2, *2.-?. -1,-1. 

-1 , *2. -2.-1 .-1 

-1 . *0.-1 . 

♦0,-1,-] 


-lf*l.*lf 

-2,-1 » *0, *0, ♦?, 

♦ 2«-l , *0,-2 »-i 

-1 .-1,-1 . 

♦ 1 , ♦ I • -2 

- 1 . • 

♦0, ♦?,♦?, 

-2»*1 » *o, *0, *0, 

♦O.*?..0».0. *0 

♦0,*0,*?» 

♦0,*0,*0 

.0.* 

,o,*o,*o* 

♦0. *2. -2,-1 ,-l , 

•1, ♦2,-2, -1,-1 

♦l.*0.*l» 

♦0.-1 .-1 


-2, -1,-1, 

-2, - J , *0* ♦ 0 , ♦?» 

♦2.*1.*0.-1.-1 

-l.-l.-l. 

-l.-l.-2 


♦ 0, ♦?» *2. 

♦0 , ♦ 1 » *0 . *0 » *0 , 

♦o,*o»*o»*o,*o 

♦0. *0. *0. 

♦0. *0. *0 

♦ 0. ♦ 

♦0,*0,*Q, 

-2,*0,*0#-l.-l , 

♦l,*0«*0,-l.-l 

♦ l , *0. ♦ 1 . 

♦0.-1 ,-l 

- 1 . - 

-1 ,-1,-1 . 

♦0, ♦ 1 , *0, *0, »o. 

♦0,*1,*0,-1,-1 

-l.-l.-l. 


♦ If* 

♦o,*o, *o. 

-2,*l,*0f*0f*0» 

♦ 0 » *2, ♦ 0 , ♦ 0 , ♦ 0 

♦ 0f0.*?» 

♦ 0* *0.*0 

♦ o.* 

♦l.*lf-l. 

-1, *1.-1. -1,-1. 

-1 . *1 .-1,-1 .-1 

- 1 • ♦ 1 . -1 • 

♦0.-1 .-1 

- 1 , - 

-1 .♦0f*0f 

— 1,*0, 4 1**1 . ♦ 1 , 

♦1,-1 ♦♦o.-l ,-! 

-l.-l.-l. 

♦0..0.-1 

♦ 0,* 

♦1 ,*1 »♦! * 

— 1 ,*0* — 1 * — ) *— 1 , 

-).♦), *1,*U*1 

♦1, ♦!.♦», 

♦l.*l.*l 

♦O.-l.-l 

*0.*0,-l 


-1 . *0, *o. 

-i.*0,*lf ♦!.♦! , 

.1 .-1 .*0,-1 ,-i 

-l.-l.-l- 

♦ Of* 

♦l.Mfl. 

-l.*0*-l«-!»-l. 

-l.*l.*l,*l.*l 

♦ 1 , *1 .♦ 1 » 

♦ 1 .♦ 1 ,♦ 1 

♦ If* 

♦1,*1,-1, 

-1. ♦1,-1. -1,-1, 

♦!,♦ 1,-1 

♦l»»l,*l. 

♦0,- I ♦- 1 


-1 ,*o,*o» 

-1 . *0*-l f-l**l. 

♦l**l,*0.-l.-l 

1 ,-l » 

.0, .0,-1 

.0,- 

-1 .*] .*1 . 

-1,*0« — 1 ♦ — 1 • - 1 , 

-] ,*1 .♦).•] ,«1 

♦1 •*1**1* 

♦ 1 ,♦ 1 . ♦ 1 


♦!•♦!, -!• 

-1 ,♦!,-) .-1 .-1 , 

♦1 .*1 .-1 ,-1.-1 

♦l.*l,*l. 

♦0,-1. -1 

-If- 


♦11257) l l 02 
♦11256)1507 

♦ 21 21 3 1 31 0 1 
♦2ln?l*5lo* 

♦ 2125711 1 10 
♦31267) 1 ) 31 
-31267)1633 
-3126611122 


* 0 . 
* 0 , 
- 2 * 
♦ 0 , 
♦ 0 . 
- 2 , 
♦ 0 . 
♦ 0 . 
* 0 . 
♦ 0 , 
* 0 . 
-1 , 
♦ 0 . 
♦ 0 . 
* l . 
♦ 0 . 
♦ 0 , 
-If 
♦ 0 , 
♦ 0 . 


♦ 0,*0 
♦1 f M 
♦ 0 ,*\ 
- 2,-1 
2,-1 
0 . ♦ 1 
-1 . *0 
-1 .*0 
-1 , *0 
-1 * *0 
- 1 , • 0 
- ! . *0 
1 .*0 
. *0 


♦0,-1 .-1 
♦ o .- l ,-l 
* O ,* 6.*0 
- 2 , - 2, -2 
- 2 ,- 2 ,-? 
♦ 0 ,* 0,*0 

- 1 »-! »-\ 

-1 »-l ,-l 

- I • - 1 » - 1 

- 1 « - 1 • " 1 

- 1 «- 1»-1 


♦1 .♦O.-l , 
♦]* M .* 1 * 
♦ 0 >*\**\ 
♦ 2 , ♦ 1 « ♦ 1 
♦?,♦!,♦! 
♦ 0, ♦ 1 ,♦ 1 


1 , 
1 , 
1 , 
♦ 0.-1 . 
♦ 1 •*! . 


-1325711201 
♦1 10*1*5)0* 
♦2125721 101 
.210225*205 
♦212561 151 1 
-33257) 1?21 
♦332571 1123 
,332561 1520 


18 0.71 0. 045 0.75 

0.9P»63112?*0 -0.002322649)451 

0.0 0.0 


I <-5 15 

0.0776 
*1 .*928*5 
-0.03)69? 
-0.03160? 
- 1 . 492805 - 
-0.03149? 
-0.03)402 

• 9 . 0 * 


♦0.043738 
♦0 .547 »1 0 
♦0.859644 
-'1.0*37 
♦ T . fl 47 al 0 

♦0.859664 

28 ,? fi-P 0 . 


- 1 ,49?8m 6 
*0 . 031 4 •*? 
♦0.03169? 
♦1 .44?H.ftS 
♦0.031642 
♦ 0.031642 


IIP o.l? 0.01 n.?0 !)..)! 0.005 

TO 0,0468 -3.??n0? 


IS 10 0.6 1.5 


1 2 16 


-0.04373ft 
-O.3*7«10 
-0 . 8 JS°53 
♦0. 0*37)ft 
-0.8*7810 
- 0.835463 


- 12.0 


20 25 


2.0 


.10 


1 .0 


TABLE 13 

CARD INPUTS OF EXAMPLES OF FIG. 6 TO 9 


B-37 












/ 5 7 SHEET OF ( r. 3) S UR FACE 2 HQ SHF FT OF ( T, 3) SUFFICE 



PHHS/CFL SOFF0CE 


F/<$. 2 

R£Lf>r/0rt 3£TJV££/Y HODOGfifiPH PHD PMS/CPL SUPPPCPS 



F/yyS/CR/. SURFACE 


F/<$. 3 

RELFT/Ort BETVEErt RODOGRFPF fWD PWS/CFL SURFACES 
FOR UrtCORRECTED PEROFO/LS 


B- 







WAAT K/AD OF AEROFV/L / S DES/RED ? 


LOAD /AG AAD CAMBER 


SELECT 7^ AAD ^ BT /ATERPOLAT/OA /A TABLE / 


SELECT T>0 PROM TATE EST/AfATE C l = Z / A F 


sever ***** f KVttKsm&earMstss* 

f \ _ v v ( CAMBER, AO REAR -LOAD/MS 
( //V/ T/ALL £ ~ ) l / ^PL/ES MORE REAR -L Of) DING 


PERFORM COARSE CALCL/LAT/OA OF 
M/DDLE PART OF SECT/OA ; DETEPM/AE t 


yes Z ' */c ACCEPTABLE 
TAKE C3 3.0 




PERFORM COARSE CALCULAT/OA OF 
SECT/OA AOSE BEFORE SUCT/OA PEAKS 



PERFORM COARSE CALCULAT/OA OF 
REAR PART OF SECT/OA COATOUR 


EST/MATE APPROX/ MATE T.E. PO/AT 
POS/T/OA /A (X, y) PLAAE OF 
UACOPRE C TED SECT/OA 


EST/MATE caord leagta C A AO 
DETERM/AE C i = ill AAD */ c 


SELECT LOWER T>0 (ACCEPT LOWER Q) 


'ocharcs/aJ^for NEGU GABLE 
CAMBER t AO REAR-LOAD/AG 

OC J/MPL/ES more rear-loading 


SELECT LOWER ( ACCEPT LOWER Moo) 

AAD /OR A/GAER ^(ACCEPT LOWER */ c ) 
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F/G. H 

FLOW CHART OF THE DES/GN PROCES F/X/HG THEN/HE PARAMETERS 







DES/RED 
FUNCT/ONS 
THREE 10 


/?/ R FO/L 


SEC7/ON COMVUR 
POINTS, SON/C 

L/N es 

SECT /OF ^ 

I F. 6.3 ^ — 

(///CORRECTED \ 
DfiTFt \ 

TN3LE // 


F/G. 5 

FlOW CHART Of DATA 
THROUGH THE PRO a RAMS 


CORRECTED 
CONTOUR 
POINT DP)TE) 
SECT/O/i ^ — 


SMOOTH 
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v' ASt 

EPS2ERO 

ALFA 

GAMMA 

RE ZF.TA1 

IM ZETA1 

RE 

ZETA2 

I* ZETA2 

A6SZETAI 

ABSZETA2 

RE Z1 DIV 12 

IM Z1 DIV 22 

RE EPS 

IM 

EPS 

♦ 1 .0000000000* *1 

♦7.1000000000* -1 

♦4.5000000000* -2 

♦7.5000000000* -1 

♦9.88631 12240* -1 

-2.3226491951* -3 

♦ 1 

.4141192050* 

-1 .2*26685672* -1 

♦9.8863385077* -1 

♦1.4195687302* *0 

♦6.9390034233* -1 

♦5.9334577226* -2 

♦7.0712644044* -1 

♦6 

.3813769931* 


rOLEKANCE 1*-10 

HIGHEST SUBSCRIPT of coefficients 100 
NUMBERS OF TERMS in power series 

164 
1 795 

166 

2009 

165 
165 


1796 


166 


I 


K 


1 


* 0 * 0000000000000* *000 
-6. 1026468309320 *-003 
♦1.254079 1396711 *-002 
♦2*6269451 136262*- 002 
♦3.61615361 16631 *-002 
♦4.3092647983731 *-002 
♦4.7762676813075*-002 
♦5.0723730902516*-002 
♦5. 24064448 15774*-002 
♦5.314337931 7 00 7*-002 
♦5.3189057353379*-002 
♦5. 2 7366566886 16*-002 
♦5. 193 16309422 17*-002 
♦5.08fl2642715929*-002 
♦4.967622 1804946*-002 
♦4. 03535447 1 691 4*-002 
♦4 . 697569 1841884*-002 
♦4.5567689627233**002 
*4.4151595142954*-002 
♦4 . 2 742833855830*-002 

♦4.1 35 1 96031671 7* -002 

♦3. 99859 76459494*- 002 
♦3.86493131 79434*-002 
♦3 . 7344557262028* 

♦ 3.60729860'*' 

♦ 3 . 40 - 


♦ 0 . 0000000000000* *000 
“2.28121 884897 1 8*-004 
-9.8961229657548*-003 
-1.55 1753058 1701 *-002 
-1 .8490945989969*-002 
- 1.97727 15422 159*-002 
-2. 0008697266284 *-002 
-1 .9628668l509S9*-002 
-1 .8913463674781*-002 
-1 .8042362315068*-002 
-1 .71262544370S9*-002 
-1 .62306569837 13*-002 
-1 .5391527929 747*-0 02 
-1 .46260 14529952 *-002 
-1 .3939666143749*-002 
-1 .333120 1834804*-002 
-1 .2795603421 l49*-002 
-1 .2326074538168*-002 
-1 • 1915241 7 18423 *-002 
-1 • 1555856658619*- ' 
-1.12411765’“ 

“ 1 . 09 **- 


-V.*** — 001 

- J J040542*-001 
-.d388767994906*-001 
-5 .48 760 94064270 *-00 1 
-5.4372918838042*-001 
-5. 38789621 6540 3*-001 
-5. 3393955494 7 12*-001 
-5.291 764 1255917*-001 
-5. 2449772283 138*-001 
-5. 19901 1 1273967*-001 
-5. 15384302829 13*-001 
-5. 10 94510246 82 9*-001 
-5.0658140539082*-001 
-5.02291 18551374*-001 
-4. 9807249300531 *-001 
-4. 9392345058898* -001 
-4 . 8984 225 006455* -00 1 
-4. 858271 490 3360*-001 
-4.8 1 8764678 1231 *-001 
-4 .7 798850652 152*-001 

-4. 741619**234l 1 6 * - 0 0 1 

-4 . 70 39502692008* -00 1 
-‘♦.666863839241 9* -001 
-4.6 30 34606 7 2626 *-00 1 
-4.5943833621 361 *-001 


. ^ o *-002 
.^ 08041 12*-002 
. . i 454755142837*-002 
-3 . 08928595 04 358*- 00 2 
-3 • 0343389606803*-002 
-2. 9805978688 96 0*-002 
-2 .92802746895 1 7 *-002 
-2 .8 7659 394 79 755 *-002 
-2.8262648 145629*-002 
-2 • 7770 0883 1 5378*-002 
-2 .728 79595294 3 7 *-002 
-2. 68 159726492 71 *-002 
-2.635384930251 7*-002 
-2.590 1321361603**002 
-2.54581 30453533*-002 
-2 .5024027498820**002 
-2. 459877227 7069*-002 
-2. 4 182 1330 17871 *-002 
-2.37738860 l4925*-002 
-2.337381 52620 04*-0 02 
-2.2981 7121 0921 7*-002 
-2.2597374938289**002 
-2 .2220 60 885550 7*- 002 
-2. 18S 122540 1292*-002 
-2. 1489042275292*-002 
-2. 11 33883076091 *-002 
-2. 07855 7 70543 18*- 002 
-2. 04439508 78864*- 002 
-2.0 108060414756**002 


FIG. 6 

EXAMPLE OF OUTPUT OF COEFF 
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CASE 

EPSZERO 

ALFA 

gamma 

RE ZETA1 

IM ZETA1 

RE ZETA2 

IM ZETA2 

ABSZETA1 

ABSZETA2 

RE Zi DIV Z2 

IM 21 DIV Z2 

RE EPS 

IM EPS 

♦i.aooooooooo# ♦ ! 

*7.1000000000# -1 

♦4.5000000000# -2 

♦7.5000000000# -1 

♦9.8863112240# -1 

-2.322649195 1 # -3 

♦1.4141192058# *0 

-1.2426685672# -1 

numbers of terms 
513 
1074 

*9.8863385077# -1 
IN POWER SERIES 

♦1.4195687302# *0 

♦6.9390034233# -1 

*5.9334577226# -2 

♦7.0712644044# -1 

♦6.3813769931# -2 


TAU1=0 .0750 

*1.489734 

♦0.043930 

-1.489734 

-0.043930 

-0.030078 

♦0.826031 

♦0.030878 

-0.826031 

-0.030878 

♦0.838718 

♦0.030878 

-0.813344 

-1.409734 

-0.043930 

♦1 .489734 

♦0.043930 

-0.030078 

♦0.826031 

♦0.030878 

-0.826031 

-0.030078 

♦0.838718 

♦0.030878 

-0.813344 

TAUl»0.07SB 

♦1.490737 

♦0.043063 

-1.490737 

-0.043863 

-0.031151 

♦0.833329 

♦0.031151 

-0.833329 

-0.031151 

♦0.645736 

♦0.031151 

-0.820923 

-1.490737 

-0.043863 

♦1.490737 

♦0.043863 

-0.031151 

♦0.833329 

♦0.031151 

-0.833329 

-0.031151 

♦0.845736 

♦0.031151 

-0.820923 


TAU 1 =0 . 0767 




♦1.491787 
-0.03142 2 
-0.031422 

♦0.043799 

♦0.840589 

♦0.852719 

-1.491787 
♦0.0314 22 
♦0.031422 

-0.043799 

-0.840589 

-0.028459 

-1.491707 

-0.031422 

-0.031422 

-0.043799 

♦0.840589 

♦0.852719 

♦1.491787 

♦0.031422 

♦0.031422 

♦0.043799 

-0.840589 

-0.828459 

TAU1 =0.0775 




♦1.492085 

-0.031692 

-0.031692 

♦0.043738 

♦0.847010 

♦0.859666 

-1.492885 

♦0.031692 

♦0.031692 

-0.043738 

-0.847810 

-0.835953 

-1,492885 

-0.031692 

-0.031692 

-0.043738 

♦0.847010 

♦0.859666 

♦1.492805 

♦0.031692 

♦0.031692 

♦0.043738 

-0.847010 

-0.035953 

TAU1=0.0783 




♦1.494029 

-0.031960 

-0.031960 

♦0.043678 

♦0.854992 

♦0.866579 

-1.494029 

♦0.031960 

♦0.031960 

-0.043678 

-0.854992 

-0.843405 

-1.494029 

-0.031960 

-0.031960 

-0.043678 

♦0.054992 

♦0.066579 

♦1.494029 

♦0.031960 

♦0.031960 

♦0.043678 

-0.8S4992 

-0.043405 

T AUl = 0 • 0792 




♦1.495219 

-0.032227 

-0.032227 

♦0.043621 

♦0.862136 

♦0.073456 

-1 .495219 
♦0.032227 
♦0.032227 

-0.043621 

-0.862136 

-0.050815 

-1.495219 

-0.032227 

-0.032227 

-0.043621 

♦0.862136 

♦0.873456 

•1.495219 

♦0.032227 

♦0.032227 

♦0.043621 

-0.862136 

-0.050815 

T AU1 s 0 • 0800 




♦1.496456 

-0.032493 

-0.032493 

♦0.043566 

♦0.869241 

♦0.880299 

-1.496456 

♦0.032493 

♦0.032493 

-0.043566 

-0.869241 

-0.858184 

-1.496456 

-0.032493 

-0.032493 

-0.043566 

♦0.869241 

♦0.880299 

♦1.496456 

♦0.032493 

♦0.032493 

♦0.043566 

-0.869241 

-0.058184 


FIG. 7 

EXAMPLE OF OUTPUT OF INTCONS 
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CASE i 8 

EP5ILON(u)=0. 710000 
AL.EA =0.045000 

GAMMA =0.750000 


TAU l =0.077500 


TAU(C) 


THETAIO 


PSI 


DPSl/OT AU 


DPSI/DTrtETA 




♦4.650000x00' 

-2 

-3. 300000000 * 

♦ 0 

-1.509974184* 

-2 

♦2.414259265* 

-1 

-4.535078159* 

-2 

STEP 

1 

♦4.650000100' 

-2 

-3.800000000' 

♦0 

-1.477725776' 

-2 

♦8.532782331 • 

-1 

-2.717375376* 

-2 



♦A. 650000100' 

-2 

-2.8UOOOOOOO* 

♦ 0 

-1.554115277' 

-2 

-4.001338056* 

-1 

-5.396004725' 

-2 



*5.150000100' 

-2 

-3.3O0000000* 

♦0 

-1.163153957' 

-2 

♦1.318132882' 

♦ 0 

-5.496345307' 

-1 



♦A. 150000100' 

-2 

-3.300000000* 

♦ 0 

-1 .509377224' 

-2 

-1.766594275' 

-1 

♦2.182432770* 

-1 



*4,5868486S2' 

-2 

-3.182708165' 

♦0 

-1.523300173' 

-2 

♦2.754594976* 

-2 

-4.104430697* 

-3 

STEP 

2 

♦A. 586848652' 

-2 

-3.065416330' 

♦ 0 

-1.524371442' 

-2 

-1.103441 759' 

-1 

-6.096283701 • 

-3 



♦A . 586848652 ' 

-2 

-3.300000000' 

♦ 0 

-1.522686679' 

-2 

♦1.641817040' 

-1 

-1.641443737* 

-3 



♦4,523697205* 

-2 

-3.182708io5' 

♦0 

-1.523150302' 

-2 

-3.014841733* 

-2 

•3.652174626' 

-2 



♦4,650000100' 

-2 

-3.182708165' 

♦0 

-1.519572826' 

-2 

♦9.307143098* 

-2 

-4.825771132* 

-2 



•4,580224253* 

-2 

-3. 164692427' 

♦ 0 

-1.523455757' 

-2 

♦2.241396158' 

-4 

-1.101289147* 

-5 

STEP 

3 

♦4,580224253' 

-2 

-3.146676688' 

♦ 0 

-1.523464080' 

-2 

-2.07232209b' 

-2 

\ -3.348330217* 

-4 



♦4.560224253' 

-2 

-3.182708165' 

♦0 

-1 ,523457702 ' 

-2 

♦2. 1 14270526' 

-2 

♦3.187978276' 

-4 



*4,573599853' 

-2 

-3.164692427' 

♦0 

-1 .523433237 ' 

-2 

-5.912910031 • 

-3 

*4.380275734* 

-3 



*4,586848652' 

-2 

-3.164652427' 

♦ 0 

-1.523437387* 

-2 

♦6.443779659* 

-3 

-4.439953441* 

-3 



♦4,580202921 • 

-2 

-3.164516646 • 

♦0 

-1 .52345577 7 • 

-2 

-2.756908657* 

-8 

-1.059754068* 

-5 

LAST 

STEP 


FIG. a 

EXAMPL E OF OUTPUT QF SADDPNT 
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THE COMPUTATION OF A QUAS I-ELL IPT ICAL AEROFOIL 
IN A CIRCULATORY TRANSONIC POTENTIAL FLOW 
BY USING LIGHTHILLS 2ND INTEGRAL OPERATOR 

EPSILON(0)=0.7100 ALFA=>0 . 045000 GAMMA=0 . 750000 
T AU ( 1 ) =0 • 0775 TAUCZETAl )=0.0752 

CASE 18 M-INF = 0.6481 


LAM8DA1 = *0.00 LAM8DA2 = *0.00 


CORRECTION FUNCTION QUANTITIES.. 

TAU (0=0.045800 THETA ( C ) =-3 . 220 020 


-.1036**1 
♦. 1230**2 
-. 1726**0 
-.1109*-! 


- . 7343/” 1 
-.1802**1 
-. 1366*M 
-.3381 *-4 


- . 7307*-l 
-. 1406**1 
-. 1295**1 
- . 5489*-4 


♦.6473**0 
♦. 1246*^2 
-. 1461^*0 
♦ .5783*-2 


♦ 0.01 5235 1 0 
-0.06414442 
♦0.00118564 


INTEGRATION CONSTANTS.. 


J=1 

♦1.49286 

♦0.03697 

-1.49286 

-0.03697 

J=2 

-0.01220 

♦0.84777 

♦0.01220 

-0.84777 

J=3 

-0.01220 

♦0.85963 

♦0.01220 

-0.83592 

J=1 

-1.49286 

-0.03697 

♦1.49286 

♦0.03697 

J=2 

-0.01220 

♦0.84777 

♦0.01220 

-0.84777 

J = 3 

-0.01220 

♦0.85963 

♦0.01220 

-0.83592 


STAGNATION POINT 




THETA X 

Y 

1/R 

CP 


-1.25208 -1.49286 ♦0.03697 .65289* ♦ 2 ♦l.lOgS 


MU2=*7 .40557000000 18*-001 


FIG. 9 PAGE 1 

EXAMPLE OF OUTPUT QF AIRFOIL 
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TAU=0. 120000 


M=0 • 8257 


CP=-0.5175 


TOL=. 000010 J=3 


UPPER REAR PART 


THETA 

PSI 

X 

Y 

DPSI/DT AU 

DPSI/DTHET A 

GET J 



DX/DTHETA 

0Y/0THETA 



1/R 

-12.0000 

-0.32364 






-10.0000 

-0.15668 






-8.0000 

-0.06467 






-6.0000 

♦0.14028 






-7.3689 

-0.01030 






-7.2493 

-0.00018 






-7.2472 

♦0. 00001 






-7.2478 

-0.00004 






-7.2472 

♦0.00001 

♦0.39838 

♦0.16256 

-19.78572 

♦5.16621 - 

.40760# 

-0.12649 


-4.49018 

♦6.33215 


♦ 

.13828# 

K MAX 

13 31 

44 33 

28 33 

44 47 

28 47 


KC MAX 

9 16 

4 17 

9 17 

9 19 

9 20 



TAtJ=0. 130000 M=0.8644 CP=-0.6306 

TOL=. 000010 J=3 




UPPER 

REAR PART 




THETA 

PSI 

X 

Y 

DPS I /DT AU 

DPSI/DTHETA 

DET J 



DX/DTHETA 

DY/DTHETA 



1/R 

-7.2472 

-0.19344 






-5.2472 

-0.03587 






-3.2472 

♦0.13510 






-4.8276 

-0.00017 






-4.8256 

♦0.00000 






-4.8263 

-0.00005 






-4.8256 

♦0.00000 

♦0.08524 

♦0.19503 

-22.87835 

♦4.90903 - 

.33812# -1 

-0.08422 


-6.03077 

♦5.89703 


♦ 

.13113# +0 

K MAX 

44 26 

44 35 

44 34 

44 41 

44 45 


KC MAX 

9 15 

5 15 

4 17 

4 22 

4 18 



FIG. 9 PAGE 2 

EXAMPLE OF OUTPUT OF AIRFOIL 



TAU=0. 140000 


M=0 .9022 


CP=- 0.7404 


TOL=. 000010 J=3 


UPPER REAR PART 

THETA PSI X Y OPSI/OTAU DPSI/DTHETA DET J 

DX/DTHETA DY/DTHETA 1/R 

-4.8256 -0.21878 

-2.8256 -0.06777 

-0.8256 ♦0 . 07029 

-1.8439 *0.00422 

-1.9015 *0.00026 

-1.9053 -0.00000 


-1 .9047 
-1.9053 

♦0.00004 

-0.00000 

-0.30137 

♦0.21724 

-22.47466 

♦4.03032 

-.36017* -1 

-0.03325 


-6.67727 

♦4.59654 



♦.13610* *0 

K MAX 

38 28 

38 

29 

38 

28 

38 46 

27 43 


KC MAX 

9 12 

4 

13 

5 

13 

5 15 

4 15 



TAU=0. 145000 M=0 . 9208 CP=-0.7942 

TOL=. 000010 J=1 




UPPER 

REAR PART 




THETA 

PSI 

X 

Y 

DP5I/DT AU 

DPSI/DTHETA 

DET J 



DX/DTHETA 

DY/DTHETA 



1/R 

-0.4451 

-0.01331 






♦0.5549 

♦0.04062 






-0.1983 

♦0.00099 






-0.2154 

♦0.00001 






-0.2160 

-0.00002 






-0.2154 

♦0.00001 

-0.50797 

♦0.22179 

-20.27334 

♦3.26945 - 

.44194* -1 

-0.00376 


-6.34546 

♦3.55999 


♦ 

.15020* *0 

K MAX 

38 25 

27 35 

38 25 

38 43 

38 48 


KC MAX 

9 13 

4 14 

5 14 

9 16 

4 14 



FIG. 9 PAGE 3 

EXAMPLE OF OUTPUT OF AIRFOIL 
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TAU=0. 150000 


M=0 • 9393 


CP=-0.8472 


TOL=. 000010 J=3 


UPPER REAR PART 


THETA 

PSI 

X 

DX/DTHETA 

Y 

DY/DTHETA 

OPSI/DTAU 

OPSI/OTHET A 

DET J 
1/R 

♦1.4745 

♦2.4745 

♦1.7216 

♦1.6944 

♦1.6937 

♦1.6937 

-0.00917 

♦0.02792 

♦0.00114 

♦0.00003 

-0.00000 

-0.00000 

-0.71299 

♦0.21906 

-16.93044 

♦2.33106 - 

.62873# -1 

♦0.02956 


-5.55279 

♦2.35234 


♦ 

.17804# *0 

K MAX 

38 41 

38 

36 

27 

44 

38 55 

38 50 


KC MAX 

9 12 

10 

13 

5 

13 

4 18 

10 16 



TAU=0. 155000 M=0.R577 CP=-0.8994 

TOL=. 000010 J=3 


UPPER REAR PART 


THETA 

PSI 

X 

Y 



DX/DTHETA 

DY/DTHETA 

♦3.6028 

-0.01177 



♦4.6028 

♦0.01122 



♦4.1149 

♦0.00121 



♦4 • 0558 

-0.00102 



♦4.0829 

♦0.00048 



♦4.0742 

♦0.00029 



♦A. 0650 

-0.00082 



♦4.0718 

♦0.00023 



♦4.0684 

-0.00074 


- 

♦4.0710 

♦0.00021 



♦4.0697 

-0.00071 



♦4.0704 

♦0.00020 



♦4.0704 

♦0.00020 

-0.91776 

♦0.20886 

♦0.07104 


-4.34172 

♦1.11584 

K MAX 

38 31 

27 41 

27 39 

KC MAX 

5 14 

4 15 

5 16 


DPSI/DTAU DP5I/DTHET A DET J 

1/R 


12.73044 

♦1.31921 

-.10963# 

♦ 0 



♦.23305# 

♦ 0 

27 47 

38 52 



4 20 

4 15 




FIG. 9 PAGE 4 

EXAMPLE OF'OUTPUT OF AIRFOIL 
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TAU=0. 160000 


M=0 .9759 


CP=-0 .9508 


T0L= .000010 J=3 


UPPER REAR PART 

THETA PSI X Y OPSI/OTAU DPSI/DTHETA DET J 

DX/DTHETA DY/DTHETA 1/R 

♦6 .4471 -0.01256 

♦7.4471 -0.00193 

♦8.4471 +0.00484 

♦7.7318 +0.00033 

♦7.6902 *0. 00002 

♦7.6873 -0.00000 

+7.6880 ♦0.00000 


♦7.6873 

-0.00000 

-1.13307 

♦0.18741 

-7.71791 

♦0.43662 

-.291 80* 

♦ 0 

♦0.13417 


-2.69689 

♦0.11012 



♦ • 37567/ 

♦ 0 

K MAX 

38 28 

27 

46 

27 

39 

27 49 

38 43 



KC MAX 

5 14 

4 

15 

5 

16 

9 21 

4 15 




TAU=0. 165000 M=0 .9940 CP=-1.0014 

TOL=. 000010 J=3 


UPPER REAR PART 


THETA 

PSI 

X Y DPSI/DTAU DPSI/DTHETA 

DET J 



DX/DTHETA DY/DTHETA 

1/R 

♦11.3043 

-0.01106 

\ 


♦12.3043 

-0.00829 



♦13.3043 

-0.00602 



♦14.3043 

-0.00502 



♦15.3043 

-0.00404 



♦16.3043 

-0.00364 



♦17.3043 

-0.00333 



♦18.3043 

-0.00316 



♦19.3043 

-0.00313 



♦18.8043 

-0.00313 



♦19.0543 

-0.00313 





FIG, 9 PAGE 5 



EXAMPLE OF OUTPUT OF AIRFOIL 
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TAU=0. 045800 M=0.4899 CP=*0.4269 

T OL= *000010 J=1 




TAIL 

POINT 




THFTA 

PSI 

X 

DX/DTHETA 

Y 

OY/OTHETA 

DPSI/DTAU 

DPSI/DTHET A DET J 

1/R 


-3.2200 

♦0.00000 

♦1.61909 

-0.07062 

♦0.00000 

-0.00000 +.00000* 

♦ 0 

0.05620 


♦0.00000 

-0.00000 


♦.00000* 

♦0 

K MAX 

32 22 

17 24 

17 23 

32 36 

32 34 

- 

KC MAX 

3 12 

8 19 

3 19 

3 20 

8 17 



TAU=0. 166667 M=1.0000 CP=-1.0182 

TOL=. 000010 J=3 


UPPER SONIC LINE 


THETA 

PSI 

X 

Y 

♦0.5000 

-0.33671 

-0.60175 

-0.14131 

♦1.5000 

-0.26939 

-0.69651 

-0.07058 

♦3.0000 

-0.18586 

-0.82692 

♦0.01430 

♦5.0000 

-0.10499 

-0.97470 

♦0.08827 

♦8.0000 

-0.04571 

-1.14059 

♦0.13689 

♦12.0000 

-0.01578 

-1.27759 

♦0.14555 

♦16.0000 

-0.00768 

-1.35458 

♦0.13579 

♦20.0000 

-0.00536 

-1.39855 

♦0.12399 

♦25.0000 

-0.00255 

-1.42923 

♦0.11136 

♦30.0000 

-0.01986 

-1.44596 

♦0.10134 


FIG. 9 PAGE 6 

EXAMPLE OF OUTPUT OF AIRFOIL 
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RESULTS OF PROGRAM T 32 

DATA INPUT TAPE NUMBER A * ♦ 1 . 60 1 0000000000 * ♦ 003 * 


♦ 0 

- 1 . 6399500 * 

♦ 0 

♦ 0 . 0000000 * 

♦ 0 

♦ 1 . 4400000 * 

♦ 0 

♦ 4 . 1021800 * 

♦ 1 

♦ 1 

- 1 . 6375300 * 

♦0 

♦ 8 . 5 9 0 . 0 0 . 0 . 0 i _ 

-3 

-♦ 1 -.- 14 . 7-54 00 -• 

-♦ 0 - 

-♦ 2.834000 0 '- 

♦ 1 

♦ 2 

- 1 . 6351700 * 

♦ 0 

♦ 1 . 3000000 * 

-2 

♦ 1 . 0219600 * 

♦ 0 

♦ 2 . 2239000 * 

♦ 1 

♦ 3 

- 1 . 6325200 * 

♦0 

♦ 1 . 7020000 * 

-2 

♦ 9 . 2394000 * 

-1 

♦ 1 . 7583000 * 

♦ 1 

♦ A 

- 1 . 6293700 * 

♦0 

♦ 2 . 0760000 * 

-2 

♦ 8 . 4722000 * 

-1 

♦ 1 . 4626000 * 

♦ 1 

♦ 5 

- 1 . 6257500 * 

♦0 

♦ 2.4680000 ' 

-2 

♦ 7 . 7744000 ' 

-1 

♦ 1 . 2009000 * 

♦ 1 

♦ 6 

- 1 . 6215200 * 

♦ 0 

♦ 2 . 8470000 * 

-2 

♦ 7 . 1479000 * 

-1 

♦ 9 . 9302000 * 

♦ 0 

♦ 7 

- 1 . 6165900 * 

♦ 0 

♦ 3 . 2590000 * 

-2 

♦ 6 . 5629000 * 

-1 

♦ 8 . 1719000 * 

♦ 0 

♦ 8 

- 1 . 6108100 * 

♦ 0 

♦ 3 . 670000 O * 

-2 

♦ 6 . 0388000 * 

-1 

♦ 6 . 8004000 * 

♦ 0 

♦ 9 

- 1 . 6040100 * 

♦0 

♦ 4 . H 10000 * 

-2 

♦ 5 . 5384000 ' 

-1 

♦ 5 . 6147000 * 

♦ 0 

♦10 

- 1 . 5959700 * 

♦0 

♦<♦. 5860000 * 

-2 

♦ 5.0628000 • 

-1 

♦ 4 . 6132000 * 

♦ 0 

♦11 

- 1 . 5865000 ' 

♦ 0 

♦ 5 . 0950000 * 

-2 

♦ 4 . 6171000 ' 

-1 

♦ 3 . 7878000 * 

♦ 0 

♦12 

- 1 . 5743500 * 

♦0 

♦ 5 . 6300000 * 

-2 

♦ 4 . 2004000 * 

-1 

♦ 3 . 1126000 * 

♦ 0 

♦13 

- 1 . 5613600 * 

♦ 0 

♦ 6 . 1850000 • 

-2 

♦ 3 . 8026000 * 

-1 

♦ 2 . 5288000 * 

♦ 0 

♦14 

- 1 . 5468100 * 

♦ 0 

♦ 6 . 7050000 * 

-2 

♦ 3 . 4426000 * 

-1 

♦ 2 . 1418000 * 

♦ 0 

♦15 

- 1 . 5301500 * 

♦ 0 

♦ 7 . 3130000 * 

-2 

♦ 3 . 0909000 * 

-1 

♦ 1 . 8132000 * 

♦ 0 

♦16 

- 1 . 5137000 * 

♦ 0 

♦ 7 . 6970000 ' 

-2 

♦ 2 . 0038000 * 

-1 

♦ 1 . 6349000 * 

♦ 0 

♦17 

- 1 . 4967600 * 

♦0 

♦ 8 . 1600000 * 

-2 

♦ 2 . 5303000 * 

-1 

♦ 1 . 5487000 * 

♦ 0 

♦18 

- 1 . 4800900 ' 

♦0 

♦ 8 . 7410000 ' 

-2 

♦ 2 . 2756000 * 

-1 

♦ 1 . 5974000 * 

♦ 0 

♦19 

- 1 . 4704400 * 

♦ 0 

♦ 9 . 0010000 ' 

-2 

♦ 2.0778000 • 

-1 

♦ 1 . 9832000 * 

♦ 0 

♦20 

- 1 . 4622700 * 

♦ 0 

♦ 9 . 0750000 * 

-2 

♦ 1 . 9003000 * 

-1 

♦ 2 . 8911000 * 

♦ 0 

♦21 

- 1 . 4574500 * 

♦ 0 

♦ 9 . 0600000 * 

-2 

♦ 1 . 7371000 * 

-1 

♦ 2 . 7348000 * 

♦ 0 

♦22 

- 1 . 39 ^ 2200 * 

♦ 0 

♦ 9 . 1770000 * 

-2 

♦ 1 . 2611000 * 

-1 

♦ 4 . 0928000 * 

-1 

♦23 

- 1 . 2858800 * 

♦0 

♦ 1 . 1019000 * 

-1 

♦ 9 . 0890000 ' 

-2 

♦ 2 . 4922000 * 

-1 

♦24 

- 1 . 1392400 * 

♦ 0 

♦ 1 . 2704000 * 

-1 

♦ 6 . 3920000 * 

-2 

♦ 1 . 6921000 * 

-1 

♦25 

- 9 . 4031000 ' 

-1 

♦ 1 . 3385000 * 

-1 

♦ 3 . 5760000 * 

-2 

♦ 1 . 0172000 * 

-1 

♦ 26 

- 5 . 3171000 * 

-1 

♦ 1 . 4045000 ' 

-1 

♦ 3 . 5300000 * 

-3 

♦ 6 . 6507000 * 

-2 

♦27 

- 5 . 6950000 * 

-2 

♦ 1 . 3400000 * 

-1 

- 2 . 8190000 ' 

-2 

♦ 7 . 2089000 * 

-2 

♦28 

♦ 2 . 3045000 * 

-1 

♦ 1 . 2327000 * 

-i 

- 5 . 0580000 * 

-2 

♦ 8 . 2760000 * 

-2 

♦29 

♦ 4 . 3327000 * 

-1 

♦ 1 . 0822000 * 

-1 

- 6 . 7450000 * 

-2 

♦ 8 . 0466000 * 

-2 

♦30 

♦ 6 . 0441000 * 

-1 

♦ 9 . 8040000 ' 

-2 

- 8 . 0050000 ' 

-2 

♦ 6 . 5220000 * 

-2 

♦31 

♦ 7 . 6454000 ' 

-1 

♦ 8 . 5560000 * 

-2 

- 8 . 8460000 * 

-2 

♦ 3 . 7081000 * 

-2 

♦32 

♦ 9 . 2548000 * 

-1 

♦ 7 . 0300000 * 

-2 

- 9 . 0680000 * 

-2 

♦ 1 . 2599000 * 

-2 

♦33 

♦ 1 . 1470000 * 

♦0 

♦ 4 . 8000000 • 

-2 

- 9 . 1000000 * 

-2 

♦ 0 . 0000000 * 

♦ 0 

I 

Xl 


n 


0 L 


(1/R) l 
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MODIFIED INPUT 
♦0 - 1 . 6399500 * 

DATA 
♦ 0 

♦ 0 . 0000000 • 

♦ 0 

♦ 7 . 6018261 • 

♦0 - 1 . 8490348 * 

♦ 4 

♦1 - 1 . 6375300 ' 

♦0 

♦ 8 . 5900000 ' 

-3 

♦ 2 . 2198348 * 

♦0 - 4 . 0900205 * 

♦ 2 

♦ 2 - 1 . 6351700 ' 

♦0 

♦ 1 . 3000000 ' 

-2 

♦ 1 . 6353089 * 

♦0 - 1 . 5662666 * 

♦2 

♦3 - 1 . 6325200 ' 

♦0 

♦ 1 . 7020000 ' 

-2 

♦ 1 . 3240548 * 

♦0 - 8 . 0321336 * 

♦ 1 

♦ 4 - 1 . 6293700 ' 

♦ 0 

♦ 2 . 0760000 • 

-2 

♦ 1 . 1319705 * 

♦0 - 5 . 0398256 * 

♦ 1 

♦5 - 1 . 6257500 * 

♦ 0 

♦ 2 . 4580000 * 

-2 

♦ 9.8420901 * 

-1 - 3 . 3171519 * 

♦ 1 

♦6 - 1 . 6215200 * 

♦ 0 

♦ 2 . 8470000 * 

-2 

♦ 8 . 6789196 * 

-1 - 2 . 3052537 * 

♦ 1 

♦7 - 1 . 6165900 * 

♦ 0 

♦ 3 . 2590000 ' 

-2 

♦ 7 . 7017728 * 

-1 - 1 . 6433023 * 

♦ 1 

♦8 - 1 . 6108100 * 

♦ 0 

♦ 3 . 6700000 • 

-2 

♦ 6 . 8984800 * 

-1 - 1 . 2193140 * 

♦ 1 

♦9 - 1 . 6040100 * 

♦ 0 

♦ 4.1 110000 » 

-2 

♦ 6 . 1840116 * 

-1 - 9 . 1261282 * 

♦ 0 

♦10 - 1 . 5959700 ' 

♦0 

♦ 4 . 5860000 ' 

-2 

♦ 5 . 5448491 • 

-1 - 6 . 8967053 * 

♦ 0 

♦11 - 1 . 5865000 * 

♦ 0 

♦ 5 . 0950000 ' 

-2 

♦ 4 . 9758033 * 

-1 - 5 . 2782855 * 

♦ 0 

♦12 - 1 . 5743500 * 

♦ 0 

♦ 5 . 6300000 ' 

-2 

♦ 4 . 4662052 * 

-1 - 4 . 0889080 ' 

♦ 0 

♦13 - 1 . 5613600 * 

♦ 0 

♦ 6 . 1850000 * 

-2 

♦ 3 . 9971423 * 

-1 - 3 . 1584435 * 

♦ 0 

♦14 - 1 . 5468100 * 

♦ 0 

♦ 6 . 7050000 • 

-2 

♦ 3 . 5853719 * 

-1 - 2 . 5677900 * 

♦ 0 

♦15 - 1 . 5301500 * 

♦ 0 

♦ 7 . 3130000 * 

-2 

♦ 3 . 1932442 * 

-1 - 2 . 0974868 * 

♦ 0 

♦16 - 1 . 5137000 * 

♦ 0 

♦ 7 . 6970000 ' 

-2 

♦ 2 . 8796579 * 

-1 - 1 . 8424187 * 

♦ 0 

♦17 - 1 . 4967600 ' 

♦0 

♦ 8 . 1600000 ' 

-2 

♦ 2 . 5857198 * 

-1 - 1 . 7065858 * 

♦0 

♦18 - 1 . 4800900 * 

♦ 0 

♦ 8 . 7410000 * 

-2 

♦ 2 . 3157106 * 

-1 - 1 . 7275987 * 

♦ 0 

♦19 - 1 . 4704400 * 

♦0 

♦ 9 . 0010000 ' 

-2 

♦ 2 . 1082268 * 

-1 - 2 . 1168770 * 

♦ 0 

♦20 - 1 . 4622700 * 

♦ 0 

♦ 9 . 0750000 * 

-2 

♦ 1 . 9235095 * 

-l - 3 . 0530263 * 

♦ 0 

♦21 - 1 . 4574500 * 

♦ 0 

♦ 9 . 0600000 * 

-2 

♦ 1 . 7547859 * 

-1 - 2 . 8620854 * 

♦ 0 

♦22 - 1 . 3942200 * 

♦ 0 

♦ 9 . 1770000 * 

-2 

♦ 1 . 2678282 * 

-1 - 4 . 1918763 * 

-1 

*23 - 1 . 2858800 * 

♦ 0 

♦ 1 . 1019000 * 

-1 

♦ 9 . 114U10 * 

-2 - 2 . 5233173 * 

-1 

*24 - 1 . 1392400 ' 

♦ 0 

♦ 1 . 2704000 * 

-1 

♦ 6 . 4007197 * 

-2 - 1 . 7025092 * 

-1 

♦25 - 9 . 4031000 * 

-1 

♦ 1 . 3385000 ' 

-1 

♦ 3 . 5775251 • 

-2 - 1 . 0191534 * 

-1 

♦26 - 5 . 3171000 * 

-1 

♦ 1 . 4045000 ' 

-1 

♦ 3 . 5300147 * 

-3 - 6 . 6508243 * 

-2 

♦27 - 5 . 6950000 * 

-2 

♦ 1 . 3400000 * 

-1 

- 2 . 8197470 * 

-2 - 7 . 2174994 * 

-2 

♦28 + 2 . 3045000 * 

-1 

♦ 1 . 2327000 * 

-1 

- 5 . 0623178 * 

-2 - 8 . 3078338 * 

-2 

♦29 + 4 . 3327000 * 

-1 

♦ 1 . 0822000 * 

-1 

- 6 . 7552474 * 

-2 - 8 . 1017418 * 

-2 

♦30 + 6 . 0441000 ' 

-1 

♦ 9 . 8040000 ' 

-2 

- 8 . 0221426 * 

-2 - 6 . 5850595 * 

-2 

♦31 + 7 . 6454000 ' 

-l 

♦ 0 . 5560000 ' 

-2 

- 8 . 8691463 * 

-2 - 3 . 7519388 * 

-2 

♦32 + 9 . 2548000 * 

-1 

♦ 7 . 0300000 ' 

-2 

- 9 . 0929370 * 

-2 - 1 . 2755578 * 

-2 

♦33 + 1 . 1470000 * 

♦ 0 

♦ 4 . 8000000 ' 

-2 

- 9 . 1252025 * 

-2 ♦ 0 . 0000000 * 

♦ 0 

I x L 


Yl 


Y£ 

y l 
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DATA INPUT TAPE NUMBER B** 1.6020000 000000 •♦003* 


EPS 

NU0 

=♦10.0000000* 

=♦10.0000000* 

-1 

-3 

NUl 

=♦10.0000000* 

-2 

NU2 

=♦10.0000000* 

-1 

MU3 

=♦10.0000000* 

-1 

MUA 

=♦10.0000000* 

-1 

MU5 

=♦10.0000000* 

-1 

nsigma 

= ♦ 6 


KKMAX 

= ♦ 1 


kmax 

= ♦10 


TOL 1 

=♦1.0000000* 

-5 

T0L2 

=♦1.0000000* 

-5 

SIGMA0 

.SIGMA1 .SIGMA2 

*K 


♦1.0000000' -30 ♦1.0000000* -30 ♦1.0000000* -30 ♦O' 

♦1.0000000' -30 ♦1.0000000* -30 ♦1.0000000* -30 ^5 

♦1.0000000* -8 ♦1.0000000* -6 ♦1.0000000* -A *15 wi/ A Yl 2 JAY'} 2 f AY"i i 

♦ 1 . 0000000 * -6 ♦!. 0000000 * -6 ♦ 1 . 0000000 * -6 » 23' N 0 V ) \ * J 

♦1.0000000' -6 ♦1.0000000* -6 ♦1.0000000* -6 *32 

♦1.0000000* -30 ♦1.0000000* -6 ♦1.0000000* -6 03 

RH03.RH0A.RH05.K 

♦1.0000000* O ♦1.0000000* ♦O ♦1.0000000* O -1 
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in m 


KKC= 1 
2 ♦ 0 

=♦ 0 . 0000000 * *0 
=♦3. 2999998 ' >1 

weight TABLE FOR THE RHO I 


I 

RHO I 


>0 

♦1.5167978* 

-12 

♦ 1 

♦2.6318015* 

-8 

>2 

♦8.6468692* 

-9 

>3 

♦3.9643051 • 

-8 

♦ 4 

♦5.9068438* 

-6 

♦ 5 

♦9.6913410* 

-6 

♦ 6 

♦4.41 14499* 

-7 

♦ 7 

♦9.3622449* 

-7 

♦ 8 

♦2.8174829* 

-5 

♦ 9 

♦2.0841564* 

-5 

♦10 

♦7.2622034* 

-6 

♦11 

♦2.6636871 • 

-6 

♦12 

♦1.1651879* 

-4 

♦13 

♦9.6791160* 

-6 

♦14 

♦9.0293142* 

-6 

♦15 

♦1.2667598* 

-6 

♦16 

♦9.3035599* 

-2 

♦17 

♦6.0142708* 

-7 

♦18 

♦5.4349358* 

-7 

♦19 

♦6.0760013* 

-8 

♦20 

♦3.3658803* 

-9 

♦ 21 

♦2.4340303* 

-5 

♦ 22 

♦4.5115203* 

-4 

♦23 

♦2.9790369* 

-3 

♦24 

♦5.1754407* 

-2 

♦25 

♦1.6821194* 

♦1 

♦26 

♦6.7154153* 

♦1 

♦27 

♦9.9725589* 

♦ 0 

♦ 28 

♦5.0948630* 

-2 

♦ 29 

♦3.2570199* 

-2 

♦ 30 

♦1.1978289* 

-l 

♦31 

♦2.6393892* 

-1 

♦32 

♦1.7293302* 

-1 


K = + 1 

EPS =♦. 304138420415* *1 

I = +83 

C6 =>.767751483814* >7 

NUMBER OF NON SIGNIFICANT CONTRIBUTIONS IN C6 AND E.. >0 

INFINITY NORM OF YCORR >1.8490348* >4 

INFINITY NORM OF IMPROVEMENT VECTOR* 1 . 8490348 * >4 

INFINITY NORM OF YCORR >1.8490348* >4 

INFINITY NORM OF IMPROVEMENT VECTOR>2. 1459983* -12 
NUMBER OF ITERATIONS IN RESIDUAL VECTOR METHOD.. >2 
TOLERANCE TESTS ARE SATISFIED 
E =>6.1066405* -1 

S =>6.5181797* >0 
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K = ♦? 

EPS =+.260875572782* -2 

I = *83 

C6 =*.564865335138* *1 

number of non significant contributions IN C6 and E.. *0 

INFINITY NORN OF YCOPR *1.8490348* *9 

INFINITY NORM OF IMPROVEMENT VECTORS. 8490348* *4 

INFINITY NORM OF YCORR +1.3490348' *4 

INFINITY NORM OF IMPROVEMENT VECTOR* 2 . 0009322 • -9 

NUMBER OF ITERATIONS IN RESIDUAL VECTOR METHOD.. *2 
TOLERANCE TESTS ARE SATISFIED 
E =*4.6284200* *0 

S =+5.4711929* +0 


K = *3 

EPS =+.145474904605* -3 

I = *83 

C6 =*.31315-3540813 «" “-4 

NUMBER OF NON SIGNIFICANT CONTRIBUTIONS IN C6 AND E.. *4 

INFINITY NORM OF YCORR +1.8490348* *4 

INFINITY NORM OF IMPROVEMENT VECTOR* 1 . 8490348 • *4 

INFINITY NORM OF YCORR *1.3490348* *4 

INFINITY NOPM OF IMPROVEMENT VECTOR+9. 4306842 • -9 

NUMBER OF ITERATIONS IN RESIDUAL VECTOR METHOD.. *2 
TOLERANCE TESTS ARE SATISFIED 
E =*1.4664412* *2 

S =*5.42320791 + o 


K = *4 

EPS = ♦ « 257024577 354 • -3 

I = *83 

C6 =*.310227841904* -5 

NUMBER OF NON SIGNIFICANT CONTRIBUTIONS IN C6 AND E.. +8 

INFINITY NORM OF YCORR *1.8490348* *4 

INFINITY NOPM OF IMPROVEMENT VECTOR* 1 . 8490348 • *4 

INFINITY NORM OF YCORR *1.8490343* *4 

INFINITY NORM OF IMPROVEMENT VECTOR* 1 . 7791 682 • -8 

NUMBER OF ITERATIONS IN RESIDUAL VECTOR METHOD.. *2 
TOLERANCE TESTS ARE SATISFIED 
E =*6.5517164* *1 

S =*5.4385281* *0 


K = +5 

EPS =*,202885800044* -3 

I = *83 

C6 =+.432477744866* -5 

NUMBER OF NON SIGNIFICANT CONTRIBUTIONS IN C6 AND E.. +9 

INFINITY NORM OF YCORR *1.8490348* *4 

INFINITY NORM OF IMPROVEMENT VECTOR* 1 . 8490348 * *4 

INFINITY NORM OF YCORR *1.8490348* *9 

INFINITY NORM OF IMPROVEMENT VECTOR+2. 0982066 • -8 

INFINITY NORM OF YCORR *1.8490348* *4 

INFINITY NOPM OF IMPROVEMENT VECTOR* 1 .51 44470 • -8 

NUMBER OF ITERATIONS IN RESIDUAL VECTOR METHOD.. *3 
TOLERANCE TESTS ARE SATISFIED 
E =*9.1827910* +1 

S =*5.4325453* *0 

SMOOTHING COMPLETED AT K = *5 
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RESULTS OF THE SMOOTHING PROCESS 


♦0 

- 1 # 6399500 ' 

♦0 

♦ 3 . 566 * 4 ^ 25 * 

-23 

♦ 7 , 6018261 ' 

♦ 0 

- 1 . 8 !. 90346 ' 

♦ 4 

♦ 3 . 5864425 * 

-23 

> 0 . 0000000 ' 

♦ 0 

• 0 . 0000000 * 

♦ 0 

♦ 1 

- 1 . 637S300 ' 

♦0 

♦ 8 . S900000 ' 

-3 

♦ 2 . 2198348 * 

♦0 

- 4 . 0900205 ' 

♦ 2 

♦ 0 . 0000000 * 

♦ 0 

* 0 . 0000000 ' 

♦ 0 

♦ 0 . 0000000 * 

♦ 0 

♦2 

- 1 . 6351700 ' 

♦0 

♦ 1 . 3000000 * 

-2 

♦ 1 . 6353089 * 

♦0 

- 1 . 5662666 • 

♦ 2 

♦ 0 . 0000000 * 

♦0 

* 0 . 0000000 ' 

♦0 

♦ 0 . 0000000 * 

♦ 0 

♦ 3 

- 1 . 6325200 ' 

♦0 

♦ 1 . 7020000 * 

-2 

♦ 1 . 3240548 * 

♦ 0 

- 8 . 0321336 * 

♦ l 

♦ 0 . 0000000 * 

♦ 0 

* 0 . 0000000 ' 

♦ 0 

♦ 0 . 0000000 * 

♦0 

♦ 4 

- 1 . 6293700 ' 

♦0 

♦ 2 . 0760000 * 

-2 

♦ 1 . 1319705 * 

♦0 

- 5 . 0398256 ' 

♦ 1 

♦ 0 . 0000000 * 

♦0 

♦ 0 . 0000000 ' 

♦ 0 

♦ 0 . 0000000 * 

♦ 0 

♦ 5 

- 1 . 6257500 ' 

♦ 0 

♦ 2 . 4580000 * 

-2 

♦ 9.8420901 * 

-1 

- 3 . 3171519 * 

♦ 1 

♦ 0 . 0000000 * 

♦0 

♦ 0 . 0000000 ' 

♦ 0 

• 0 . 0000000 * 

♦ 0 

+ 6 

- 1 . 6215200 ' 

♦ 0 

♦ 2 . 8 ^ 76809 * 

-2 

♦ 6 . 6536003 * 

-1 

- 2 . 3063347 ' 

♦ l 

♦ 6 . 8087339 * 

-6 

- 2 . 5119349 * 

-3 

- 1 . 0809435 • 

•2 

♦ 7 

- 1 . 6165900 ' 

♦ 0 

♦ 3 . 2 * 496155 * 

-2 

♦ 7 . 7063531 • 


- 1 . 6432657 * 

♦ 1 

- 9 * 3844942 * 

-5 

♦ 4 . 58039 19 ' 

-4 

♦ 3 . 6579977 * 

-4 

♦ 8 

- 1 . 6108100 ' 

♦ 0 

♦ 3 . 6705818 * 

-2 

♦ 6 . 9006619 * 

-1 

- 1 . 2186835 * 

♦ l 

♦ 5 . 8178070 * 

-6 

♦ 2 . 3818992 ' 

-4 

♦ 6 . 3055408 * 

-3 

♦ 9 

- 1 . 6040100 ' 

♦0 

♦ <♦. 1 140626 • 

-2 

♦ 6 . 1773472 * 


- 9 . 1290648 * 

♦ 0 

♦ 3 . 0626171 * 

-5 

- 6 . 6643554 ' 

-4 

- 2 . 9366476 * 

-3 

♦10 

- 1 . 5959700 ' 

♦ 0 

♦ 4 . 5637186 * 

-2 

♦ 5 . 5355283 * 

-1 

- 6 . 8984667 ' 

♦ 0 

- 2 . 2814101 * 

-5 

- 9 . 3208652 ' 

-4 

- 1 . 7613896 * 

-3 

♦11 

- 1 . 5865000 * 

♦ 0 

♦ 5 . 07989 * 44 * 

-2 

♦ 4 . 9689487 * 

-1 

- 5 . 2782582 ' 

♦ 0 

- 1 . 5105558 * 

-4 

- 6 . 8546093 ' 

-4 

♦ 2 . 7250100 * 

-5 

♦12 

- 1 . S743S00 * 

♦ 0 

♦ 5 . 6506940 • 

-2 

♦ 4,451 1547 * 

-1 

- 4 . 0944850 * 

♦ 0 

♦ 2 . 0694048 * 

-4 

- 1 . 5050570 * 

-3 

♦ 4 . 4229756 * 

-3 

♦13 

- 1 • S61 3600 • 

♦ 0 

♦ 6 . 1970965 * 

-2 

♦ 3.9814811 * 

-1 

- 3 . 1620058 ' 

♦ 0 

♦ 1 . 2096500 * 

-4 

- 1 . 5661209 ' 

-3 

- 3 . 5623073 * 

-3 

♦14 

- 1 . 5468100 ' 

♦0 

♦ 6 . 7 * 456729 * 

-2 

♦ 3 . 5735208 * 

- 1 

- 2 . 5676927 ' 

♦ 0 

♦ 4 . 0672922 * 

-4 

- 1 . 1851166 * 

-3 

♦ 9 . 7268652 * 

-5 

♦IS 

- 1 . 5301500 ' 

♦0 

♦ 7 . 3079595 * 

-2 

♦ 3 . 1896914 * 

-1 

- 2 . 0975350 ' 

♦ 0 

- 5 . 0404646 * 

-5 

- 3 . 5528267 ' 

-4 

- 4 . 8171733 * 

-5 

♦16 

- 1 . 5137000 ' 

♦0 

♦ 7 . 8067264 * 

-2 

♦ 2 . 8815726 * 


- 1 . 8389301 * 

♦ 0 

♦ 1 . 0972644 * 

-3 

♦ 1 . 9146662 ' 

-4 

♦ 3 . 4886803 * 

-3 

♦17 

- 1 . 4967600 ' 

♦0 

♦ 6 . 2690959 * 

-2 

♦ 2 . 5809725 * 

- 1 

- 1 . 7100734 ' 

♦ 0 

♦ 1 . 0909586 * 

-3 

- 4 . 7473858 * 

-4 

- 3 . 4875758 * 

-3 

♦18 

- 1 . 4800900 ' 

♦0 

♦ 8 . 6767710 * 

-2 

♦ 2 . 3099667 * 

- 1 

- 1 . 7275989 * 

♦ 0 

- 6 . 4228958 * 

-4 

- 5 . 7538652 * 

-4 

- 1 . 9384179 * 

-7 

♦19 

- 1 . 4704400 * 

♦ 0 

♦ 6 . 8904887 * 

-2 

♦ 2 , 1 132000 * 

-1 

- 2 . 1168771 * 

♦ 0 

- 1 . 1051134 * 

-3 

♦ 4 . 9731701 • 

-4 

- 6 . 6058760 * 

-8 

♦20 

- 1 . 4622700 ' 

♦ 0 

♦ 9 . 0556387 * 

-2 

♦ 1 . 9219627 * 

- 1 

- 3 . 0530262 ' 

♦ 0 

- 1 . 9161326 * 

-4 

- 1 . 5467740 * 

-4 

♦ 9 . 1225530 * 

-8 

♦21 

- 1 . 4574500 * 

♦ 0 

♦ 9 . 1450527 * 

-2 

♦ 1 . 7817788 * 


- 2 . 8620720 ' 

♦ 0 

♦ 8 . 5052660 * 

-4 

♦ 2 . 6992863 ' 

-3 

♦ 1 . 3491836 * 

-5 

♦22 

- 1 . 3942200 ' 

♦0 

♦ 1 . 0019759 * 

- 1 

♦ 1 . 2439401 ' 

- 1 

- 4 . 1917588 ' 

-1 

♦ 8 . 4275880 * 

-3 

- 2 . 3888088 * 

-3 

♦ 1 . 1747669 * 

-5 

♦23 

- 1 . 2858800 * 

♦0 

♦ 1 . 11 73546 * 

- 1 

♦ 9 , 16697Q0 * 

-2 

- 2 . 5231053 * 

-1 

♦ 1 . 5454641 • 

-3 

♦ 5 . 2858958 ' 

— 4 

♦ 2 . 1207403 * 

-5 

♦24 

- 1 . 1392400 ' 

♦0 

♦ 1 . 2298127 * 

-1 

♦ 6 . 3746081 • 

-2 

- 1 . 701331 1 • 

-1 

- 4 . 0587271 * 

-3 

- 2 . 6111524 ' 

-4 

♦ 1 . 1781699 * 

-4 

♦25 

- 9 . 4031000 ' 

-1 

♦ 1 . 3283063 * 


♦ 3 . 7713487 * 

-2 

- 9 . 6835337 ' 

-2 

- 1 . 0193726 * 

-3 

♦ 1 . 9382362 * 

-3 

♦ 5 . 0800081 • 

-3 

♦26 

- 5 . 3171000 ' 

-1 

♦ l .* 4085696 ' 

- 1 

♦ 3 . 2701333 * 

-3 

- 7 . 1926733 ' 

-2 

♦ 4 . 0696209 * 

-4 

- 2 . 5988140 * 

-4 

- 5 , 4184899 * 

-3 

♦27 

- 5 . 6950000 ' 

-2 

♦ 1 . 3427420 * 

- 1 

- 3 . 1071031 * 

-2 

- 7 . 2813504 * 

-2 

♦ 2 . 7420478 * 

-4 

- 2 . 8735610 * 

-3 

- 6 . 3851037 * 

-4 

♦28 

♦ 2 . 3045000 ' 

-l 

♦ 1 . 2222062 * 

-1 

- 5 . 3224614 * 

-2 

- 8 • 1489572 ' 

-2 

- 1 . 0493799 * 

-3 

- 2 . 6014367 ' 

-3 

* 1 . 5887665 * 

-3 

♦29 

♦ 4 . 3327000 ' 

-1 

♦ 1 . 0984240 ' 

-1 

- 6 . 8811354 * 

-2 

- 8 . 0948535 * 

-2 

♦ 1 . 6223968 * 

-3 

- 1 . 2588799 ' 

-3 

♦ 6 . 8883500 * 

-5 

♦30 

♦ 6 . 0441000 ' 

*1 

♦ 9 . 7012760 * 

-2 

- 8 . 0680165 * 

-2 

- 6 . 5715872 * 

-2 

- 1 . 0272200 * 

-3 

- 4 . 5873901 ' 

-4 

♦ 1 . 3472267 * 

-4 

♦31 

♦ 7 . 6454000 ' 

-1 

♦ 8 . 3364724 * 

-2 

- 8 . 8774799 * 

-2 

- 3 . 7377347 ' 

-2 

- 2 . 1752755 * 

-3 

- 8 . 3336556 ' 

-5 

♦ 1 . 4204040 * 

-4 

♦32 

♦ 9 . 2548000 ' 

-1 

♦ 6 . 8726087 * 

-2 

- 9 . 2729621 * 

-2 

- 1 . 2854296 ' 

-2 

- 1 . 5739130 * 

-3 

- 1 . 8002511 * 

-3 

- 9 . B7201B7 * 

-5 

♦33 

♦ 1 . 1470000 * 

♦ 0 

♦ 4 . 8000000 * 

-2 

- 9 . 3919607 * 

-2 

- 2 . 3104086 * 

-5 

♦ 0 . 0000000 * 

♦ 0 

- 2 . 6675823 * 

-3 

- 2 . 3104086 * 

-5 
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EXAMPLE OF OUTPUT OF SMOOTH 


B-60 



RESULTS OF INTERPOLATION 


♦ 0 

- 1 .6399500 * 

♦0 

♦ 3 • 58 < 344 /?i • 

-23 

♦ 7 . 6018261 • 

♦0 - 1 . 8490348 * 

♦ 4 

♦ 4 . 8798554 ' 

♦ 7 

- 7 . 2851897 * 

♦10 

♦ 4 . 7972002 * 

♦13 

♦ 0 

- 1 . 6395467 ' 

♦ 0 

♦ 2 . 0196606 * 

-3 

♦ 3 . 3694935 * 

♦0 - 4 . 2093559 * 

♦ 3 

♦ 3 . 3316945 * 

♦ 7 

- S . 3503189 * 

♦10 

♦ 4 . 7972002 * 

♦ 13 

♦ 0 

- 1 . 6391433 ' 

♦ 0 

♦ 3 . 2365599 * 

-3 

♦ 3 . 0361041 » 

♦ 0 + 1 . 3678559 * 

♦ 3 

♦ 5 . 6393141 • 

♦ 6 

- 3 . 4154482 * 

♦ 10 

♦ 4 . 797200 2 * 

♦13 

♦ 0 

- 1 . 6387400 ' 

♦ 0 

♦<♦. 6006568 * 

-3 

♦ 3 . 7259003 * 

♦0 ♦ 1 . 3888924 * 

♦ 3 

- 4 . 2343376 * 

♦ 6 

- 1 . 4805775 * 

♦ 10 

♦ 4 . 7972002 * 

♦ 13 

♦ 0 

- 1 . 6383367 * 

*0 

♦ 6 . 1580439 * 

-3 

♦ 3 . 8326584 * 

♦0 - 9 . 9864155 * 

♦ 2 

- 6 . 3040107 * 

♦ 6 

♦<*. 5429329 * 

♦ 9 

♦ 4 . 7972002 * 

♦13 

♦ 0 

- 1 . 6379333 * 

♦0 

♦ 7 . 5629929 * 

-3 

♦ 3 . 0196885 * 

♦0 - 2 . 6471413 * 

♦ 3 

- 5 . 6970506 * 

♦ 5 

♦ 2 . 3891640 * 

♦10 

♦ 4 . 7972002 * 

♦13 

♦ 0 

- 1 . 6375300 ' 

♦0 

♦ 8 . 5899996 * 

-3 

♦ 2 . 2198349 * 

♦0 - 4 . 0900418 * 

♦ 2 

♦ 1 . 3968572 * 

♦ 7 

♦<♦. 3240340 * 

♦10 

♦ 4 . 7972002 * 

♦13 

* 1 

- 1 . 6375300 * 

♦0 

♦ 8 . 5900000 * 

-3 

♦ 2 . 2198348 * 

♦0 - 4 . 0900205 * 

♦ 2 

♦ 9 . 6140559 ' 

♦ 4 

♦ 1 . 7884869 * 

♦ 8 

- 2 . 1571742 * 

♦11 

♦ 1 

- 1 . 6371367 * 

♦ 0 

♦ 9 . 4326330 * 

-3 

♦ 2 . 0679964 * 

♦0 - 3 . 5953967 * 

♦ 2 

♦ 1 . 4980077 * 

♦ 5 

♦ 9 . 3999838 * 

♦ 7 

- 2 . 1571742 * 

♦ 11 

♦ 1 

- 1 . 6367433 * 

♦ 0 

♦ 1 . 0219829 * 

-2 

♦ 1 . 9389036 * 

♦0 - 2 . 9553447 * 

♦ 2 

♦ 1 . 7008710 * 

♦ 5 

♦ 9 . 1509882 * 

♦ 6 

- 2 . 1571742 * 

♦11 

♦ 1 

- 1 . 6363500 * 

♦ 0 

♦ 1 . 0961320 * 

-2 

♦ 1 . 8356949 * 

♦0 - 2 . 3011351 • 

♦ 2 

♦ 1 . 5699955 < 

♦ 5 

- 7 . 5697862 * 

♦ 7 

- 2 . 1571742 * 

♦ 11 

♦ 1 

- 1 . 6359567 • 

♦ 0 

♦1 . 1667059 * 

-2 

♦ 1 . 7563455 * 

♦0 - 1 . 7640384 * 

♦ 2 

♦ 1 . 1053811 * 

♦ 5 

- 1.6054671 * 

♦ 8 

- 2 . 1571742 * 

♦11 

♦ 1 

- 1 . 6355633 * 

♦0 

♦ 1 . 2345187 * 

-2 

♦ 1 . 6936673 * 

'♦0 - 1.4 753254 * 

♦ 2 

♦ 3 . 0703800 * 

♦ 4 

- 2 . 4539556 * 

♦ 8 

- 2 . 1571742 * 

♦11 

♦ 1 

- 1 . 6351700 ' 

♦0 

♦ 1 . 3000000 * 

-2 

♦ 1 . 6353089 * 

♦0 - 1 . 5662665 * 

♦ 2 

- 8 . 3506341 • 

♦ 4 

- 3 . 3024438 * 

♦ 8 

- 2 . 1571742 * 

♦11 

♦ 2 

- 1 . 6351700 * 

♦0 

♦ 1 . 3000000 * 

-2 

♦ 1 . 6353089 * 

♦0 - 1 . 5662666 * 

♦ 2 

♦ 4 . 9375932 * 

♦5 

- 1 . 0492658 * 

♦ 9 

♦ 7 . 9 OSB 380 * 

♦11 

♦ 2 

- 1 . 6347283 * 

♦0 

♦ 1 . 3712522 * 

-2 

♦ 1 . 6004776 * 

♦0 - 2 . 9537311 * 

♦ 1 

♦ 1 . 0744285 * 

♦5 

- 7 . 0009131 * 

♦ 8 

♦ 7 . 9058380 * 

♦ 11 

♦ 2 

- 1 . 6342867 * 

♦ 0 

♦ 1 . 4417062 * 

-2 

♦ 1 . 5891120 * 

♦0 - 3 . 9014382 * 

♦ 1 

- 1 . 3465477 * 

♦5 

- 3 . 5091680 * 

♦ 8 

♦ 7 . 9058380 * 

♦ 11 

-♦. 2 _ 

_=. l .. 6338450 i _ 

-* 0 - 

-♦ 1 . 51 i 20 . 7 _ 9 . L _ 

_= 2 _ 

_♦ 1.55593711 

*0 -1 . . 1 69446 0 

_ t 2 _ 

_=3 .. 0353365 * 

—♦. 5 _ 

1 . 7422864 i _ 

* 6 _ 

-♦- 7 . 90583803 - 

♦ II - 

♦ 2 

- 1 . 6334033 * 

♦0 

♦ 1 . 5785878 * 

-2 

♦ 1 . 4857609 * 

♦0 - 1 . 9521468 * 

♦ 2 

- 1 . 3619379 * 

♦ 5 

♦ 3 . 4743222 * 

♦ 8 

♦ 7 . 9058380 * 

♦11 

♦2 

- 1 . 6329617 * 

♦0 

♦ 1 . 6421899 * 

-2 

♦ 1 . 3934752 * 

♦0 - 2 . 0571135 * 

♦ 2 

♦ 1 . 0436481 • 

♦ 5 

♦ 6 . 9660674 * 

♦ 8 

♦ 7 . 9058380 * 

♦11 

♦ 2 

- 1 . 6325200 * 

+ 0 

♦ i . 7020000 * 

-2 

♦ 1 . 3240548 * 

♦0 - 8 . 0321416 * 

♦ 1 

♦ 4 . 8914199 * 

♦ 5 

♦ 1 . 0457811 * 

♦ 9 

♦ 7 . 9058380 * 

♦11 

♦ 3 

- 1 . 6325200 ' 

♦0 

♦ 1 . 7020000 * 

-2 

♦ 1 . 3240548 * 

♦0 - 8 . 0321336 * 

♦ l 

- 1 . 8083363 * 

♦ 5 

♦ 3 . 7313481 * 

♦ 8 

- 2 . 4027471 * 

♦ll 

♦ 3 

- 1 . 6319950 * 

*0 

♦ 1 . 7700800 * 

-2 

♦ 1 . 2652033 * 

♦0 - 1 . 2963110 * 

♦ 2 

- 1 . 8050716 * 

♦ 4 

♦ 2 . 4699059 * 

♦ 8 

- 2 . 4027471 ■ 

♦ 11 

♦ 3 

- 1 . 6314700 * 

♦ 0 

♦ 1 . 8347433 * 

-2 

♦ 1 . 1998555 * 

♦0 - 1 . 1086409 * 

♦ 2 

♦ 7 . 8506485 * 

♦ 4 

♦ 1 . 2084636 * 

♦ 8 

- 2 . 4027471 • 

♦ 11 

♦ 3 

- 1 . 6309450 * 

♦ 0 

♦ 1 . 8964275 * 

-2 

♦ 1 . 1546250 * 

♦0 - 5 . 8788795 * 

♦ 1 

♦ 1 . 0883797 * 

♦ 5 

- 5 . 2978596 * 

♦ 6 

- 2 . 4027471 * 

♦11 

♦ 3 

- 1 . 6304200 * 

♦ 0 

♦ l . 9564379 * 

-2 

♦ 1 . 1378718 * 

♦0 - 8 . 1737235 * 

♦ 0 

♦ 7 . 3943733 * 

♦ 4 

- 1 . 3144208 * 

♦ 8 

- 2 . 4027471 • 

♦11 

♦ 3 

- 1 . 6298950 * 

♦0 

♦ 2 . 0162399 * 

-2 

♦ 1 . 1397025 * 

♦0 ♦ 6 . 2126233 * 

♦ 0 

- 3.9176331 • 

♦4 

- 2 . 5758631 * 

♦ 8 

- 2 . 4027471 • 

♦11 

♦ 3 

- 1 . 6293700 * 

♦ 0 

♦ 2 . 0760000 * 

-2 

♦ 1 . 1319705 * 

♦0 - 5 . 0398224 * 

♦l 

- 1 . 9753183 * 

♦ 5 

- 3 . 8373049 * 

♦ 8 

- 2 . 4027471 * 

♦11 

♦ 4 

- 1 . 6293700 * 

♦0 

♦ 2 . 0760000 * 

-2 

♦ 1 . 1319705 * 

♦0 - 5 . 0398256 * 

♦ 1 

♦ 1 . 7146557 * 

♦ 4 

- 1 . 8761616 * 

♦ 7 

♦ 9 . 8764090 * 

♦ 9 

♦ 4 

- 1 . 6287667 * 

♦ 0 

♦ 2 . 1434313 * 

-2 

♦ 1 . 1040521 • 

♦0 - 4 . 3106375 * 

♦ 1 

* 7.6346101 ' 

♦ 3 

- 1 . 2802850 * 

♦ 7 

♦ 9 . 8764090 ' 

♦ 9 

♦ 4 

- 1 . 6281633 * 

♦ 0 

♦ 2 . 2092794 * 

-2 

♦ 1 . 0790182 * 

♦0 - 4 . 0474874 * 

♦ 1 

♦ 1 . 6977854 * 

♦ 3 

- 6 . 8440830 * 

♦ 6 

♦ 9 . 8764090 • 

♦ 9 

♦ 4 

- 1 . 6275600 * 

♦0 

♦ 2 . 2736466 * 

-2 

♦ 1 . 0547114 * 

♦0 - 4 . 0334695 * 

♦ 1 

- 6 . 3391675 * 

♦2 

- 8 . 8531625 * 

♦ 5 

♦ 9 . 8764090 ' 

♦ 9 

♦ 4 

- 1 . 6269567 * 

♦ 0 

♦2 • 33 b 54<*6 * 

-2 

♦ 1 . 0302829 * 

♦0 - 4 . 0516781 * 

♦ 1 

♦ 6 . 2950375 * 

♦2 

♦ 5 . 0734505 * 

♦ 6 

♦ 9 . 8764090 ' 

♦ 9 

♦ 4 

- 1 . 6263533 * 

♦0 

♦ 2 . 3979733 * 

-2 

♦ 1 . 0061926 * 

♦0 - 3 . 8852075 * 

♦ 1 

♦ 5 . 4880468 * 

♦ 3 

♦ 1 . 1032217 * 

♦ 7 

♦ 9 . 8764090 * 

♦ 9 

♦ 4 

- 1 . 6257500 * 

♦0 

♦ 2 . 4580000 * 

-2 

♦ 9 . 8420901 • 

-1 - 3 . 3171521 * 

♦ 1 

♦ 1 . 3941710 * 

♦ 4 

♦ 1 . 6990982 * 

♦ 7 

♦ 9 . 8764090 * 

♦ 9 

♦ 5 

- 1 . 6257500 * 

♦ 0 

♦ 2 . 4580000 * 

-2 

♦ 9.8420901 * 

-1 - 3 . 3171519 * 

♦ 1 

♦ 3 . 4357473 * 

♦3 

- 1 . 7046424 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 5 

- 1 . 6250450 * 

♦0 

♦ 2 . 5265765 * 

-2 

♦ 9 , 6 142492 • 

-1 - 3 . 1465605 * 

♦ 1 

♦ 3 . 4137249 * 

♦3 

- 1 . 7059491 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 5 

- 1 . 6243400 * 

♦ 0 

♦ 2 . 5935891 • 

-2 

♦ 9 . 3984051 • 

-1 - 2 . 9768169 * 

♦ 1 

♦ 3 . 4016934 * 

♦ 3 

- 1 . 7072558 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 5 

- 1 . 6236350 * 

♦ 0 

♦ 2 . 6591221 • 

-2 

♦ 9 . 1944981 * 

-1 - 2 . 8079219 * 

♦ 1 

♦ 3 . 3896536 * 

♦3 

- 1 . 7085625 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦5 

- 1 . 6229300 * 

♦ 0 

♦ 2 . 7232594 * 

-2 

♦ 9 . 0024682 * 

-1 - 2 . 6398761 * 

♦1 

♦ 3 . 3776036 * 

♦ 3 

- 1 . 7098691 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 5 

- 1 . 6222250 * 

♦0 

♦ 2 . 7860847 * 

-2 

♦ 8 . 9222556 * 

-1 - 2 . 4726001 * 

♦1 

♦ 2 . 3655435 * 

♦ 3 

- 1 . 7111758 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 5 

- 1 . 6215200 * 

♦ 0 

♦ 2 . 8476809 * 

-2 

♦ 8 . 6538003 * 

-1 - 2 . 3063347 * 

♦ 1 

♦ 3 . 3534751 * 

♦ 3 

- 1 . 7124825 * 

♦ 4 

- 1 . 8534450 * 

♦ 4 

♦ 6 

- 1 . 6215200 * 

♦ 0 

♦ 2 . 8476809 * 

-2 

♦ 0 . 6538003 * 

-1 - 2 . 3063347 * 

♦ 1 

♦ 1 . 9891874 * 

♦3 

- 2 . 6068284 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6206983 * 

♦ 0 

♦ 2 . 9180256 * 

-2 

♦ 8 . 4707702 * 

-1 - 2 . 1516933 * 

♦ 1 

♦ 1 . 7748566 * 

♦ 3 

- 2 . 6101483 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6198767 * 

♦ 0 

♦ 2 . 9869167 * 

-2 

♦ 8 . 2997227 * 

-1 - 2 . 0146741 * 

♦ 1 

♦ 1 . 5603530 * 

♦ 3 

- 2 . 6134682 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6190550 * 

♦ 0 

♦ 3 . 0544466 * 

-2 

♦ 0 . 1392009 * 

-1 - 1 . 8952992 * 

♦1 

♦ 1 . 3453766 * 

♦ 3 

- 2.6167881 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6182333 * 

♦0 

♦ 3 . 1206959 * 

-2 

♦ 7 . 9977780 * 

-1 - 1 . 7935913 * 

♦1 

♦ 1 . 1303375 * 

♦3 

- 2 . 6201080 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6174117 * 

♦ 0 

♦ 3 . 1857333 * 

-2 

♦ 7 . 8439775 * 

-1 - 1 . 7095727 * 

♦1 

♦ 9 . 1480557 * 

♦2 

- 2 . 6234279 * 

♦ 5 

- 4 . 0404453 * 

♦ 5 

♦ 6 

- 1 . 6165900 * 

♦0 

♦ 3 . 2496155 * 

-2 

♦ 7 . 7063531 * 

-1 - 1 . 6432657 * 

♦ 1 

♦ 6 . 9911090 * 

♦ 2 

- 2 . 6267478 * 

♦ 5 

- 4 . 0404453 ' 

♦ 5 

♦ 7 

- 1 . 6165900 * 

♦ 0 

♦ 3 . 2496155 * 

-2 

♦ 7.7063531 • 

-1 - 1 . 6432657 * 

♦ 1 

♦ 1 . 1331394 * 

♦ 3 

- 1 . 3369713 * 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6156267 * 

♦ 0 

♦ 3.3231071 • 

-2 

♦ 7 . 5530593 * 

-1 - 1 . 5413740 * 

♦ 1 

♦ 9 . 9333674 * 

♦2 

- 1 . 3390012 * 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6146633 * 

♦0 

♦ 3 . 3951674 * 

-2 

♦ 7 . 4089827 * 

-1 - 1 . 4519084 * 

♦ l 

♦ 8.6414851 • 

♦2 

- 1 . 3410312 * 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6137000 * 

♦0 

♦ 3 . 4658793 * 

-2 

♦ 7 . 2729253 * 

-1 - 1 . 3748877 * 

♦1 

♦ 7 . 3486474 * 

♦ 2 

- 1 . 3430611 * 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6127367 * 

♦0 

♦ 3 . 5353143 * 

-2 

♦ 7 . 1436874 * 

-1 - 1 . 3103307 * 

♦l 

♦ 6.0538541 * 

♦2 

- 1 . 34509 H • 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6117733 * 

♦0 

♦ 3 . 6035324 * 

-2 

♦ 7 . 0200674 * 

-1 - 1 . 2582564 * 

♦ l 

♦ 4 . 7571053 ' 

♦ 2 

- 1 . 3471210 * 

♦ 5 

- 2 . 1072086 * 

♦ 5 

♦ 7 

- 1 . 6108100 * 

♦ 0 

♦ 3 . 6705818 * 

-2 

♦ 6 . 9008620 * 

-1 - 1 . 2186835 * 

♦ 1 

♦ 3 . 4584012 * 

♦ 2 

- 1 . 3491509 * 

♦ 5 

- 2 . 1072086 * 

♦5 

♦ 8 

- 1 . 6108100 * 

*0 

♦ 3 . 6705818 * 

-2 

♦ 6 . 9008619 * 

-i - 1 . 2186835 * 

♦ l 

♦ 4 . 6555139 * 

♦ 2 

- 4 . 6546281 * 

♦ 3 

- 6 . 9601819 * 

♦ 3 

♦ 8 

- 1 . 6096767 * 

♦ 0 

♦ 3.7480201 • 

-2 

♦ 6.7657231 • 

-1 - 1 . 1662201 * 

♦ 1 

♦ 4 . 6037168 * 

♦ 2 

- 4 . 6625163 * 

♦ 3 

- 6 . 9601819 * 

♦3 

♦ 8 

- 1 . 6085433 * 

*0 

♦ 3 . 8239605 * 

-2 

♦ 6.6364961 * 

-1 - 1 . 1143555 * 

♦ 1 

♦ 4 . 5498303 ' 

♦2 

- 4 . 6704045 * 

♦ 3 

- 6 . 9601819 * 

♦ 3 

I 

X 


A 

g 


* [ 
g 1 

g" 


g" 1 


g lv 


g v 
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EXAMPLE OF OUTPUT OF SMOOTH 


B-61 


♦ 8 - 1 . 6074100 * »0 ♦ 3 . 8984695 ' -2 ♦ 6 . 5131131 * -1 - 1 . 0630909 * *1 ♦ 4 . 4968543 * *2 - 4 . 6782927 * *3 - 6 . 9601819 * *3 

♦8 - 1 . 6062767 * ♦O ♦ 3 . 9716129 * -2 ♦ 6 . 3955061 * -1 - 1 . 0124272 * *1 * 4 . 4437889 * *2 - 4 . 6861809 * *3 - 6 . 9601819 * *3 

♦8 - 1 . 6051433 * *0 ♦ 4 . 0434558 * -2 * 6 . 2836069 * -1 - 9 . 6236537 * *0 * 4 . 3906342 * *2 - 4 . 6940692 * *3 - 6 . 9601819 * *3 

♦8 - 1 . 6040100 * *0 * 4 . 1140626 * -2 * 6 . 1773472 * -1 - 9 . 1290649 * *0 * 4 . 3373900 * *2 - 4 . 7019574 * *3 - 6 . 9601819 * *3 

♦9 - 1 . 6040100 * *0 * 4 . 1140626 * -2 * 6 . 1773472 * -1 - 9 . 1290648 * *0 * 3 . 0048038 * *2 - 5 . 7076241 * *3 - 9 . 1110337 * *3 

♦9 - 1 . 6026700 * *0 * 4 . 1960314 * -2 * 6 . 0576925 * -1 - 8 . 7315491 * *0 * 2 . 9282399 * *2 - 5 . 7198329 * *3 - 9 . 1110337 * *3 

♦9 - 1 . 6013300 * *0 * 4 . 2764323 * -2 * 5 . 9432958 * -1 - 8 . 3443038 * *0 * 2 . 8515123 * *2 - 5 . 7320417 * *3 - 9 . 1110337 * *3 

♦9 - 1 . 5999900 * *0 * 4 . 3553346 * -2 * 5 . 8340192 * -1 - 7 . 9673511 * *0 * 2 . 7746211 * *2 - 5 . 7442505 * *3 - 9 . 1110337 * *3 

♦9 - 1 . 5986500 * *0 * 4 . 4328062 * -2 * 5 . 7297247 * -1 - 7 . 6007127 * *0 * 2 . 6975664 * *2 - 5 . 7564593 * *3 - 9 . 1110337 * *3 

.9 - 1 . 5973100 * *0 . 4 . 5089129 * -2 * 5 . 6302740 * -1 - 7 . 2444106 * *0 * 2 . 6203480 * *2 - 5 . 7686681 * *3 - 9 . 1110337 * *3 

♦9 - 1 . 5959700 * *0 * 4 . 5837186 * -2 * 5 . S 355283 * -1 - 6 . 8984668 * *0 * 2 . 5429661 * *2 - 5 . 7808768 * *3 - 9 . 1110337 * *3 

*10 - 1 . 5959700 * *0 * 4 . 5837186 * -2 * 5 . 5355283 * -1 - 6 . 8984667 * *0 * 2 . 3771431 * *2 - 1 . 3986362 * *4 - 2 . 6784836 * *4 

*10 - 1 . 5943917 * *0 * 4 . 6702436 * -2 * 5 . 4295166 * -1 - 6 . 5407128 * *0 * 2 . 1560581 * *2 - 1 . 4028637 * *4 - 2 . 6784836 * *4 

♦10 - 1 . 5928133 * *0 * 4 . 7551386 * -2 * 5 . 3288759 * -1 - 6 . 2179062 * *0 * 1 . 9343058 * *2 - 1 . 4070912 * *4 - 2 . 6784836 * *4 

♦10 - 1 . 5912350 * *0 * 4 . 8384838 * -2 * 5 . 2330536 * -1 - 5 . 9301520 ' *0 * 1 . 7118863 * *2 - 1 . 4113188 * *4 - 2 . 6784836 * *4 

♦10 - 1 . 5896567 * *0 * 4 . 9203511 * -2 * 5 . 14149 S 8 * -1 - 5 . 6775558 * *0 * 1 . 4887995 * *2 - 1 . 4155463 * *4 - 2 . 6784836 * *4 

♦10 - 1 . 5880783 * *0 * 5 . 0008032 * -2 * 5 . 0536466 * -1 - 5 . 4602228 * *0 * 1 . 2650455 * *2 - 1 . 4197739 * *4 - 2 . 6784836 * *4 

♦10 - 1 . 5865000 * *0 * 5 . 0798944 * -2 * 4 . 9689487 * -l - 5 . 2782582 * *0 * 1 . 0406243 * *2 - 1 . 4240014 * *4 - 2 . 6784836 * *4 

♦11 - 1 . 5865000 * *0 * 5 . 0798944 * -2 * 4 . 9689487 * -1 - 5 . 2782582 * *0 * 3 . 0446859 * *2 - 3 . 3602614 * *4 - 8 . 4530917 * *4 

♦11 - 1 . 5844750 ' *0 * 5 . 1794732 * -2 * 4 . 8678409 * -1 - 4 . 7307222 * *0 * 2 . 3624998 * *2 - 3 . 3773789 * *4 - 8 . 4530917 * *4 

♦11 - 1 . 5824500 ' *0 * 5 . 2771074 * -2 * 4 . 7764196 * -1 - 4 . 3216798 * *0 * 1 . 6768475 * *2 - 3 . 3944964 * *4 - 8 . 4530917 * *4 

♦ 11 - 1 . 5804250 * *0 * 5 . 3729646 * -2 * 4 . 6918733 ' -1 - 4 . 0518329 * *0 * 9 . 8772882 * *1 - 3 . 4116139 * *4 - 8 . 4530917 * *'■ 

♦11 - 1 . 5784000 * *0 * 5 . 4671556 * -2 * 4 . 6113761 * -1 - 3 . 9218836 * *0 * 2 . 9514386 * *1 - 3 . 4287314 * *4 -» ' 

♦11 - 1 . 5763750 * *0 * 5 . 5597335 * -2 * 4 . 5320879 * -1 - 3 . 9325336 * *0 - 4 . 0090740 * *1 -"* 

♦11 - 1 . 5743500 ' *0 * 5 . 6506940 * -2 * 4 . 4511547 * -1 - 4 . 0844850 * *0 - l .*"»" 

♦12 - 1 . 5743500 ' *0 * 5 . 6506940 * -2 * 4 . 4511547 * -1 -4.084to^-- 

♦12 - 1 . 5721850 * *0 * 5 . 7461169 * -2 * 4 . 364462 *- 

♦12 - 1 . 5700200 * *0 * 5 . 8397001 * 

♦12 - 1 . 5678550 * *» ‘ 

♦ 1 ? -• " ' 


- u 











• V 

- 2 . 1993637 * 

♦ 0 









_ - 1 . 0309514 * 

♦ 0 

- 2 . 1993637 * 

♦ 0 








• . *c < 0215 * 

-2 - 1 . 6936846 * 

♦ 0 

- 2 . 1993637 * 

♦ 0 






* 

-2 

- 4 . 9279954 * 

-3 - 1 . 7564178 * 

♦ 0 

- 2 . 1993637 * 

♦ 0 






-2 - 6 . 5715872 * 

-2 

- 5 . 5921566 * 

-2 - 1 . 8191510 * 

♦ 0 

- 2 . 1993637 * 

♦ 0 




_ 

-c - 8 . 0680165 * 

-2 - 6 . 5715872 * 

-2 

♦ 2 . 1298483 ' 

-1 - 4 . 1694557 * 

-1 

- 6 . 1542843 * 




8 

4836823 * 

-2 - 8 . 2359495 * 

-2 - 6 . 0182100 * 

-2 

♦ 2 . 0163808 * 

-1 - 4 . 3337033 * 

-1 

- 6 . 1542843 * 

-1 


. f 8667 * 

-1 

♦ 9 . 2617982 * 

-2 - 8 . 3895231 * 

-2 - 5 . 4957003 * 

-2 

♦ 1 . 8985297 * 

-1 - 4 . 4979509 * 

• 1 

- 6 . 1542843 * 

• 1 

♦30 

♦ 6 . 8447500 ' 

-1 

♦ 9 . 0359978 * 

-2 - 8 . 5295767 * 

-2 - 5 . 0052281 * 

-2 

* 1 . 7762951 * 

-1 - 4 . 6621985 * 

• 1 

- 6 . 1542843 * 


♦30 

♦ 7 . 1116333 * 

-1 

♦ 8 . 8066304 * 

-2 - 8 . 6569809 * 

-2 - 4 . 5479631 * 

-2 

♦ 1 . 6496771 * 

-1 - 4 . 8264461 * 


- 6 . 1542843 * 

.] 

♦30 

♦ 7 . 3785167 * 

-1 

♦ 8 . 5740216 * 

-2 - 8 . 7726376 * 

-2 - 4 . 1250754 * 

-2 

* 1 . 5186755 * 

-1 - 4 . 9906937 * 

-1 

- 6 . 1542843 * 

-1 

♦30 

* 7 . 6454000 ' 

-1 

♦ 8 . 3384724 * 

-2 - 8 . 8774799 * 

-2 - 3 . 7377347 * 

-2 

♦ 1 . 3832905 * 

-1 - 5 . 1549412 * 


- 6 . 1542843 * 

. 1 

♦31 

♦ 7 . 6454000 * 

-1 

♦ 8 . 3384724 * 

-2 - 8 . 8774799 * 

-2 - 3 . 7377347 * 

-2 

♦ 1 . 7196189 * 

-1 - 2 . 2753976 * 

-1 

- 2 . 9601971 * 

-1 

♦31 

♦ 7 . 9136333 * 

-1 

♦ 8 . 0990590 ' 

-2 - 8 . 9716260 * 

-2 - 3 . 2 B 47565 * 

-2 

♦ 1 . 6575202 * 

-1 - 2 . 3547999 * 

-1 

- 2 . 9601971 * 

-1 

♦31 

♦ 8 . 1818667 * 

-1 

♦ 7 . 8572812 * 

-2 - 9 . 0538477 * 

-2 - 2 . 8487208 * 

-2 

* 1 . 5932917 * 

-1 - 2 . 4342023 * 

-1 

- 2 . 9601971 * 


♦31 

♦ 8 . 4501000 * 

-1 

♦ 7 . 6134528 * 

-2 - 9 . 1246070 * 

-2 - 2 . 4301990 ' 

-2 

* 1 . 5269334 * 

-1 - 2 . 5136046 * 

-1 

- 2 . 9601971 * 


♦31 

♦ 8 . 7183333 * 

-1 

♦ 7 . 3678747 * 

-2 - 9 . 1843814 * 

-2 - 2 . 0297624 * 

-2 

* 1 . 4584452 * 

-1 - 2 . 5930070 * 

*1 

- 2 . 9601971 * 

• 1 

♦31 

♦ 8 . 9865667 * 

-1 

♦ 7 . 1208351 * 

-2 - 9 . 2336638 * 

-2 - 1 . 6479823 * 

-2 

♦ 1 . 3878272 * 

-l - 2 . 6724093 * 

• 1 

- 2 . 9601971 * 

-1 

♦31 

♦ 9 . 2548000 * 

-1 

♦ 6 . 8726087 * 

-2 - 9 . 2729621 * 

-2 - 1 . 2854298 * 

-2 

♦ 1 . 3150793 * 

-1 - 2 . 751 B 117 * 


- 2 . 9601971 * 

• 1 

♦32 

♦ 9 . 2548000 ' 

- 1 

♦ 6 . 8726087 * 

-2 - 9 . 2729621 * 

-2 - 1 . 2854298 * 

*2 

♦ 8 . 4894934 * 

-2 - 2 . 0878882 * 

-1 

- 4 . 7026512 * 

-l 

♦32 

♦ 9 . 6240000 ' 


♦ 6 . 5294444 • 

-2 - 9 . 3148130 * 

-2 - 9 . 8662204 * 

-3 

♦ 7 . 6865945 * 

-2 - 2 . 2615101 * 


- 4 . 7026512 * 


♦32 

♦ 9 . 9932000 * 

-1 

♦ 6 . 1849318 * 

-2 - 9 . 3461936 * 

-2 - 7 . 1864057 * 

-3 

♦ 6 . 8195944 * 

-2 - 2 . 4351320 * 


- 4 . 7026512 * 

-1 

♦32 

♦ 1 . 0362400 * 

♦0 

♦ 5 . 8394358 * 

-2 - 9 . 3682859 * 

-2 - 4 . 8385206 * 

-3 

♦ 5 . 8884930 * 

-2 - 2 . 6087539 * 

-1 

- 4 . 7026512 * 


♦32 

♦ 1 . 0731600 * 

♦ 0 

♦ 5 . 4932763 ' 

-2 - 9 . 3823589 * 

-2 - 2 . 8462312 * 

-3 

♦ 4 . 8932905 * 

-2 - 2 . 7823758 * 

-1 

- 4 . 7026512 * 


♦32 

*1 . 1 100800 * 

♦0 

♦ 5 . 1467245 * 

-2 - 9 . 3897692 * 

-2 - 1 . 2332036 * 

-3 

♦ 3 . 8339868 * 

-2 - 2 . 9559977 * 

-1 

- 4 . 7026512 * 

-1 

♦32 

* 1 . 1470000 * 

♦0 

♦ 4 . 8000000 * 

-2 - 9 . 3919607 * 

-2 - 2 . 3104090 * 

-5 

* 2 . 7105818 * 

-2 - 3 . 1296195 * 

-1 

- 4 . 7026512 * 

-1 

I 

X 


A 

g 

A 1 
g 1 

g" 


g"' 

g'V 


g v 
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EXAMPLE OF OUTPUT OF SMOOTH 
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CORRECTED AEROFOIL SECTION 

I, NEW VALUES, old values minus new values 


♦ 0 

-1.6399500' 

♦ 0 

♦3. 586**25* 

-23 

♦ 1. **00000* 

♦ 0 

♦*.1021800* 

♦ 1 

-3.586**25* 

-23 

•0.0000000* 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 1 

-1.6375300' 

♦ 0 

♦ 8’* 59 00 000 * 

-3 

♦1.1*75*00* 

♦ 0 

♦2.83*0000* 

♦ 1 

♦0.0000000* 

♦ 0 

•0.0000000' 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 2 

-1.6351700' 

*0 

♦ 1 .3000000 • 

-2 

♦1.0219600* 

♦ 0 

♦2.2239000* 

♦ 1 

♦0.0000000* 

♦ 0 

♦o.ooooooo* 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 3 

-1.6325200' 

♦ 0 

♦i. 7020000* 

-2 

♦9.239*000* 

-1 

♦1.7583000* 

♦ 1 

♦0.0000000' 

♦0 

♦0.0000000* 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 4 

-1.6293700' 

♦ 0 

♦2.07b0000* 

-2 

♦8. *722000* 

- 1 

♦ 1 .*626000* 

♦ 1 

♦0.0000000' 

♦0 

♦0.0000000' 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 5 

-1.6257500' 

♦0 

♦2. *580000* 

-2 

♦7.77**000* 

-1 

♦1.2009000* 

♦ 1 

♦0.0000000* 

♦0 

♦0.0000000' 

♦ 0 

♦0.0000000* 

♦ 0 

♦ 6 

-1.6215200' 

♦0 

♦2.8*76809* 

-2 

♦7.13355*8* 

-1 

♦9.9719788* 

♦ 0 

-6.80873391 

-6 

_rl.434524.4J_ 

-1 

_^_4 . 1 _7_78 8 2 9 J. __ 

_=2. 

.7 

-1.61b5900' 

♦0 

♦3.2*96155* 

"2 

♦6.56577*3* 

-1 

♦8.1662912* 

♦ 0 

♦ 9. 38**9*2 » 

-5 

-2.8743443' 

-4 

♦5.6087714* 

-3 

♦ 8 

-1.6108100' 

♦0 

♦3.6705818* 

-2 

♦6.0*0*137* 

-1 

♦6.79*6133* 

♦ 0 

-5.8178070* 

-6 

-1.6136932* 

-* 

♦5.7866539* 

-3 

♦ 9 

-1.6040100' 

♦0 

♦*.11*0626* 

-2 

♦5.5335778* 

-1 

♦5.6215309* 

♦ 0 

-3.0626171 • 

-5 

♦4.8222264' 

-* 

-6.8309077* 

-3 

♦10 

-1.59S9700' 

♦0 

♦*.5837186* 

-2 

♦5.0556682* 

-1 

♦*.6198511 • 

♦ 0 

♦2.281*101 • 

-5 

♦7.1318402' 

-* 

-6.6510977* 

-3 

♦11 

-1 .586S000 ' 

♦0 

♦5.07989*** 

-2 

♦ * .6 1 1 60*2 * 

-1 

♦3.7908870* 

♦ 0 

♦1.5105558* 

-4 

♦5.4957992' 

-* 

-3.0869986* 

-3 

♦12 

- 1 .5743500 * 

♦ 0 

♦5.65069*0 • 

-2 

♦*.1878*53* 

-1 

♦3.11**589* 

♦ 0 

-2.069*0*8* 

-* 

♦1.2554713' 

-3 

-1.8588909* 

-3 

♦13 

-1.5613600' 

♦ 0 

♦0. 1970965* 

-2 

♦3. 7890890* 

-1 

♦2.5357*91* 

♦ 0 

-1.2096500* 

-4 

♦1.3510987* 

-3 

-6.9491092* 

-3 

♦ 1 A 

-1.5468100' 

♦ 0 

♦6.7*56729* 

-2 

♦3. *3209*0* 

-1 

♦2.1**1363* 

♦ 0 

-*.0672922* 

-4 

♦1.0505194' 

-3 

-2.3362681* 

-3 

♦15 

-1.5301500' 

♦0 

♦7.3079595* 

-2 

♦3.0876756* 

-1 

♦1.8138015* 

♦ 0 

♦5.0*046*6* 

-5 

*3.2244059' 

-* 

-6.0150876* 

-4 

♦16 

-1.5137000' 

♦ 0 

♦7.806726** 

-2 

♦2.80556B0* 

-1 

♦1.6315550* 

♦ 0 

-1.09726*** 

-3 

-1.7679617' 

-* 

♦3.3450322* 

-3 

♦17 

-1.4967600' 

♦0 

♦8.2690959* 

-2 

♦2.5258*96* 

-1 

♦1.552*003* 

♦0 

-1.0909586* 

-3 

♦4.4503816' 

-* 

-3.7002609* 

-3 

♦18 

-1.4800900' 

♦0 

♦8.6767710* 

-2 

♦2.2701383* 

-1 

♦1.5980056* 

♦ 0 

♦6. *228958* 

-4 

♦5.4617075' 

-* 

-6.0564569* 

-4 

♦19 

-1.4704400' 

♦0 

♦8.890*807* 

-2 

♦2.0825611 • 

-1 

♦1.9826023* 

♦ 0 

♦1.105113** 

-3 

-4.7610595* 

-* 

♦5.9773711 • 

-4 

♦20 

-1.4622700' 

♦0 

♦9.0558387* 

-2 

♦1.898808** 

• 1 

♦2.8913*87* 

♦ 0 

♦1.9161326* 

-4 

♦1.4916297* 

-* 

-2.4867544* 

-4 

♦21 

-1 .4574500 ' 

♦0 

♦9. 1*50527' 

-2 

♦ 1 • 76327** • 

-l 

♦2.7309925* 

♦ 0 

-8.5052660* 

-* 

-2.6174422' 

-3 

♦3.8075398* 

-3 

♦22 

-1.3942200' 

♦0 

♦1.0019759* 

- 1 

♦1.2375828* 

-1 

♦*.0963132* 

-1 

-0. *275880* 

-3 

*2.3517154' 

-3 

-3.5132054* 

-4 

♦23 

-1.2858800' 

♦0 

♦1.11735*6* 


♦9.1*1*210' 

-2 

♦2.*9 1 632* • 

-I 

-1.5*546*1* 

-3 

-5.2420983* 

-* 

♦5.6764874* 

-5 

♦24 

-1.1392400' 

♦0 

♦1.2298127* 


♦6.36599*6* 

-2 

♦1.6910133* 

-1 

♦4.0587271 • 

-3 

♦2.6005416* 

-4 

♦1.0866984* 

-4 

♦25 

-9.4031000' 

-1 

♦1.3283063* 


♦3.7695o22* 

-2 

♦9.6629109* 

-2 

♦1.0193726* 

-3 

-1.9356222' 

-3 

♦5.0908910* 

-3 

♦26 

-5.31 71000* 

“1 

♦ i .*085696* 


♦ i. 2701216* 

-3 

♦7.1925579* 

-2 

-*.0696209* 

-4 

♦2.5987839' 

-4 

-5.4185793* 

-3 

♦27 

-5.6950000* 

-2 

♦1.3*27*20* 

-1 

-3.1061038* 

-2 

♦7.2708189* 

-2 

-2.7*20*78* 

-* 

♦2.8710377' 

-3 

-6.1918900* 

-4 

♦ 28 

♦2.3045000* 

-1 

♦1.2222062* 


-5.31 7***0 • 

-2 

♦8.11**521* 

-2 

♦1.0*93799* 

-3 

♦2.5944404' 

-3 

♦1.6154791* 

-3 

♦ 29 

♦4.3327000' 

“1 

♦1.098*2*0* 

-1 

-6.8703055* 

-2 

♦8.0376982* 

-2 

-1.6223968* 

-3 

♦1.2530545* 

-3 

♦8.9018403* 

-5 

♦30 

♦ 6. 04<.1000 • 

-1 

♦9.7012780* 

-2 

-8.0505789* 

-2 

♦6.5079*08* 

-2 

♦1.0272200* 

-3 

♦4.5578898* 

-4 

♦1.4059205* 

-4 

♦31 

♦7.6454000' 

-1 

♦8.338*72** 

-2 

-8.85*2686* 

-2 

♦3.6939806* 

-2 

♦2.1752755* 

-3 

♦8.2685526' 

-5 

♦1.4119384* 

-4 

♦32 

♦9.2548000' 

-1 

♦6.8726087* 

-2 

-9.2*65197* 

-2 

♦1.2690266* 

-2 

♦1.5739130* 

-3 

♦1.7851967' 

-3 

-9.1265751* 

-5 

♦33 

♦1.1470000' 

♦ 0 

♦ *.8000000 » 

-2 

-9.36**908* 

-2 

♦2.2801725* 

-5 

♦0.0000000* 

♦ 0 

♦2.6449083' 

-3 

-2.2801725* 

-5 

X 



A 


A 

6 l 




-< 

r~' 

i 


e L"®L 


(1/R) L -(1/R) L 
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ALGOL-60 PSR302*4CI 
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PAGE 1 


00»* ABEGINA ACOMMENTACOMPUTATION OF THE SERIES LAMBDA 1/N/l. D/ON LAMBOA(/N/> 
LAM80A</N»1/2/) .LAMBDA(/-N-l/2/) .L(/N/) AND L(/-N/> 

FOR N=0(1)M,J=1.2,3,I=1.2.. 

AREAL* TOL t EPSZERO. ALF A . GAMMA , t AINTEGERA CASE.M., 

AARRAYA PARAM (/I . .6/) • . 

INARRAY<40. PARAM) ., 

M.=PARAM(/l/> .. T0L.=PARAM</2/> .. CASE.=PARAM(/3/) • . 

EPSZERO. =PARAM(/4/) ALFA ,=PARAM ( /5/ ) . . GAMMA. =PARAM ( /6/ >. . 

10»* 

ABEGINA AREALA PI.ABSZ1.ABSZ2.TOLF.TOLZ1. 

TOLZ2.TOLEZ1 .T0LEZ2. FACT. H. SUM. LN2.. 

AINTEGERA I.K.P.N.J,. 

ABOOLEANA CON VS 1 .CONVS2.CONVS3.. 

AARRAYA Z1 .Z2.Z10Z2.EPS.EZ1.EZ2.F.S1.S2.Z.EZ.TI.T2.EN.L.LM2.LP2.LM3. 
S3.T3.ZZ. IZ12.T.R.0F.DNL.D.0S1 .DS2.DT1 .DT2.LNZ1 . 

LP3 (/ 1 • .2/ ) .FGAMI/l ..2. 1. .2/) . Z2P .EZ2P ( / 1 . . 2 .-M- 1 . . 0/ ) . 
OB ^BtZ lPYEZ IP7EP (7 1 7T2T07 . M»T/ )~i CARR AY ( / 1T72T1TT1T. 0 . .M , l. .2/ ) . . 

20** APROCEDUREA CONSTANTS.. 

ABEGINA 

AREALA H, CZ 1 .CZ2.M0D. ARC . • 

AARRAYA EPSl»Hl.H2(/1..2/> .. 

APROCEDUREA CMD (A.B.Z.T) • . AVALUEA T.. AREALA T.. AARRAYA A.6.Z.. 
ABEGINAAREALA A1.A2.B1.B2.M0D.. 

A1.=A</1/).. A2.=A(/2/).» Bl.=B(/l/>.. B2.=B(/2/>.. 

MOD . =A IFA 0 ALESSA T ATHENA 1.0 AELSEA 1 . 0/ ( B1 «B1 »B2*B2 ) . . 

Z</l/> .=M0D»(A1»B1-T»A2“B2) . . 

30** Z(/2/> .=M0D«(A2*B1.T»A1»B2) . « 

AENDA CMD.. 

PU=4.0*ARCTANa.0> .. 

EPS </ 1/1 .=EPSZERO*COS(2.0»ALFA) 

EPS1(/1/).=1.0*EPS(/1/)., 

EPS(/2/l .=EPS1 </2/l .=EPSZERO*S INI 2.0* ALFA) .. 

CMD(EPS.EPSI.Hl.-l) •« 

CMD (HI. EPS 1 .H2» -1 ) . . 

H.=4.0-(0.5*GAMMA/PII APOMERA 2., 

40** CZ1. = 1.0-H«H2(/1/1 .. CZ2.=-H»H2(/2/l ., 

M0D.=(CZI*CZ1»CZ2«CZ2) APOMERA 0.25.. 

ARC.=0.5*(ARCTAN(CZ2/CZ11*(AIFA CZl ALESSA 0 ATHENA SIGN(CZ2)*PI 
AELSEA 0.0) ). . 

H2 1/1/ ) .=0.5* ( 1 .0-MOD«COS (ARC) ) .. 

H2(/2/) .=-0.5»M0D*SIN(ARC) .. 

CMDIH2.H1.Z1.-1) .. 

H2(/l/). = l. 0-H2 ( / 1/ ) • . 

H2(/2/) .=-H2(/2/) . . 

CMD(H2»H1.Z2»-1).» 

50** ABSZ 1 .=SQRT (Z 1 (/ 1/ ) APOMERA 2»Zl(/2/) APOWERA 2)., 

ABSZ2.=SQRT(Z2(/1/) APOMERA 2«Z2(/2/) APOWERA 2).. 
CMDIZ1.Z2.Z10Z2.-1>.. 

AENDA PROCEDURE CONSTANTS.. 

APROCEOUREA COMUDI1 (A.B.C.T) .. AVALUEA T., 

AINTEGERA T.. AARRAYA A.B.C,. 

ABEGINA AREALA MOD.P 1 «P2 .0 1 .02 . . 
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COEFF 

15 
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COEFF 

23 
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P1.=A</1/)., P2.=A(/2/)., Ql.=B(/l/).« Q2.=B(/2/>.» COEFF 

MOD •=/ IF / T /LESS/ 0 ATHENE 1 .0/ (01*01 *02*021 /ELSE/ 1.0.* COEFF 

60*® C(/1/).=(P1*01-T»P2*02>«MOO.. COEFF 

C(/2/> • = (T*P1*Q2*P2*Q1 ) *HOD. » COEFF 

/END/ C0MU0I1.* COEFF 

COEFF 

/PROCEDURE/ C0MUD12(A.J.B*K,C.T).. /VALUE/ J.K.T,. COEFF 

/INTEGER/ J.K.T.. /ARRAY/ A.B.C.* COEFF 

/BEGIN/ AREAL/ MOO *P 1 *P2 *Q1 .02 . . COEFF 

P1.=A(/1*J/) .» P2.=A</2. J/l . , U1.=B(/1.K/)., Q2.=B(/2.K/1 COEFF 
MOO.=/IFA T /LESS/ 0 ATHENA 1.0/(01*01*02*02) /ELSE/ 1.0.. COEFF 

C(/l/) .=(P1*Q1-T*P2»Q2>*M0D.« COEFF 

70*® C (/2/1 .= (T*P1*02*P2*Q1 ) *M00. . COEFF 

/END/ C0MU0I2.. COEFF 

COEFF 

/PROCEDURE/ COHYPF(A.B.C) .« /VALUE/ A.B.C.. COEFF 

AREAL/ A.B.C.. COEFF 

/BEGIN/ AREAL/ PART . T 1 . T2 .S 1 . S2 . H . , /INTEGER/ K.KM., COEFF 

S1.=T1.=1.. S2.=T2.=0.» KM.=0.. COEFF 

TERM.. K.sKM*l.t COEFF 

PART.=(A*KM)*(B*KM)/(C.KM)/K., COEFF 

H.=Tl*Z1022(/l/)-T2*ZlDZ2(/2/) .» COEFF 

80** T2.=(Tl*ZlOZ2(/2/)*T2*ZlDZ2(/l/))*PAHT.» COEFF 

T1.=PART«H., COEFF 

S 1 . *S 1 *T 1 . . S2.=S2*T2. . KM. =K . . COEFF 

/IF/ ABS < T 1/SI ) /GREATER/ TOLF /OR/ ABS ( T2/S2 ) /GREATER/ TOLF COEFF 

ATHENA /GOTO/ TERM.. COEFF 

F < / 1 / ) .=FACT*S1.» F(/2/> .=FACT«S2 COEFF 

/END/ COHYPF • . COEFF 

COEFF 

/PROCEDURE/ OCOHYPF (A.OA.B.DB.C.OC) •« COEFF 

/VALUE/ A.OA.B.DB.C.OC.* AREAL/ A, OA .8. OB.C.DC, • COEFF 

90*« /BEGIN/ /REAL/ OTERM., /INTEGER/ K., /ARRAY/ KLAO . TERM. S .T . OT ( / 1 . .2/ ) . . COEFF 
S(/l/> .=S(/2/l .=DT(/1/1 .=DT</2/> .=T (/2/> .= TERM 1/2/ > .=0 . . COEFF 

T (/l/l .=1 . . K.=-l., COEFF 

AA.. K.=K*1 . . TERMI/l/) .= ( A*K 1 * ( B*K 1 / < C*K 1 / (K* 1 1 ., COEFF 

OTERM. =( ( ( B*K ) *0A* ( A »K ) *0B) / (K* 1) -TERM (/l/ ) »DC ) / (C*K ) . , COEFF 

KL AD (/ 1/ ) .=0TERM»T (/l/l *TERM < /l/l *0T (/l/l .. COEFF 

KLAD(/2/l .=DTERM*T(/2/)*TERM(/l/)*0T(/2/l .. COEFF 

C0MU0IKKLAD.Z10Z2.0T.il ., COEFF 

S(/l/l .=S(/1/1 *0T(/1/1 .. S(/2/).=S(/2/l*0T (/2/ 1 . . COEFF 

/IF/ ABS (OT (/1/1/S(/1/11 /GREATER/ TOLF /ORA ABS < DT </2/ 1 /S (/2/ ) > COEFF 

100®* /GREATER/ TOLF /THEN/ COEFF 

/BEGIN/ C0MU0IKTERM.Z10Z2.KLA0.il.. COEFF 

COMUDI KKLAD.T.T.ll*. /GOTO/ AA COEFF 

/END/.. COEFF 

OF </l/> . = FACT*S</1/1 . . 0F(/2/).=FACT*S(/2/> COEFF 

/END/ OCOHYPF.. COEFF 

COEFF 

/PROCEDURE/ TESKSUM. TERM. TOL. REPEAT. READY) .. COEFF 

AREAL/ TOL.. /BOOLEAN/ READY . . /ARRAY/ SUM. TERM.. /LABEL/ REPEAT.. COEFF 

/BEGIN/ SUM(/1/).=SUM(/1/)*TERM(/1/)., SUM (/2/ ). =SUM 1/2/1 *TERM (/2/> . . COEFF 
110«* /IF/ (TERM(/l/)*TERM(/l/)*TERM(/2/)*TERM(/2/l 1/ COEFF 

(SUM </l/)*SUM(/l/)*SUM(/2/)*SUM(/2/l) /GREATER/ TOL* TOL COEFF 

ATHENA /GOTO/ REPEAT /ELSE/ COEFF 

/BEGIN/ READY. =/TRUE/.« OUTPUT (41 ./ (A//4ZD/1 A.P1 /END/ COEFF 

/END/ TEST.. COEFF 

COEFF 
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APROCEOUREA POWERS(Z.S.ZP).. AVALUEA s . * aintegera s.. aarraya 

Z.ZP., 

COEFF 

. 118 

ABEGINA AREALA MOO.ARC.PARC.MOOP., AINTEGERA P.MS.. 



COEFF 

119 

MOO.=(Z(/l/>*Z(/l/> »Z(/2/)*Z(/2/) >APOWERA(.5*S> . . 



COEFF 

120 

MS .= (M. 1 ) *S • • MOOP.=l.» 



COEFF 

121 

120** ARC.=ARCTAN(Z(/2/)/Z(/l/) > .« AIFA Z(/l/> ALESSA 0 ATHENA 

ARC 

•=ARC»PI 

. . COEFF 

122 

AFORA P.=0 astepa s auntila MS adoa 



COEFF 

123 

ABEGINA PARC • =P*ARC • t 



COEFF 

124 

ZPI/t.P/) ,=MODP*COS(PARC> ., 



COEFF 

125 

ZP(/2»P/> .=MODP*SIN (PARCI ., 



COEFF 

126 

MOOP.=MOOP«MOD 



COEFF 

127 

AENOA.. 



COEFF 

126 

AENDA POWERS.. 



COEFF 

129 




COEFF 

130 




COEFF 

131 

130** CONSTANTS.. 



COEFF 

132 

OUTPUT (61*A(A2(/.7(19S) ) A ) A , A ( ACASEA ) A . A ( AEPSZEROA ) A , A ( A ALFA A ) A . 

COEFF 

133 

A ( AGAMMAA ) A . A ( ARE ZET A 1 A ) A . A < AI M ZE.TAI.A_> A. A ( ARE ZETA2A_).A.. 


COEEF 

134 

A(AIM ZETA2A>A.A(AABSZETA1A>A.A(AABS2ETA2A>A.A(ARE Zl 

OIV 

Z2 A 1 A , 

COEFF 

13S 

A(AIM Zl OIV Z2A)A.A(ARE EPSA)A.A(AIM EPSA)A>.« 



COEFF 

136 

OUTPUT (61.A(A2(/*7(.D.10DA.ZD2B))A)A» 



COEFF 

137 

CASE. EPSZERO. ALFA. GAMMA. Zl </l/> .Zl I/2/1.Z2 1/1/ > . 



COEFF 

138 

Z2(/2/) ,ABSZl.ABSZ2.Z10Z2(/l/> .ZlDZ2(/2/> .EPS(/l/>. 



COEFF 

139 

EPS (/2/ > > . * 



COEFF 

140 




BLANK 

1 

140** OUTPUT (41*A(A///.A(AT0LERANCE A ) A .OA » ZD . //. 



COEFF 

141 

A (AHlGHEST SUBSCRIPT OF COEFF IC I EN T SA 1 A . 3ZOA > A « TOL . M > . . 



COEFF 

142 

0UTPUT(A1.A(A//.A(ANUMBERS OF TERMS IN POWER SER1ESA) AA > A) 

• t 


COEFF 

143 




COEFF 

144 

GAMMA • = .5* GAMMA/P I • « 



COEFF 

145 

FGAM </ 1 . 1/ ) . = .5®GAMMA/S0RT ( 1-.25*GAMMA»GAMMA) .« 



COEFF 

146 

FGAM (/I » 2/ ) .=PI/FGAM</ 1.1/1 .. FGAM </l. 1/1 . = P I*FGAM (/ 1 ,1/1 ., 


COEFF 

147 

T OLF. = . 1 *TOL . « 



COEFF 

146 

FGAM (/2. 1/1 .=FGAM 1/2.2/ 1 .=0. . 



COEFF 

149 

COMUDI1 (EPS.Z1.EZ1.1) .. COMUOI1 (EPS.Z2.EZ2.il .. 



COEFF 

150 

150** TOLZ1.=(1.0/ABSZ1-1.01*TOL., 



COEFF 

151 

TOLZ2.=(ABSZ2-1.01*TOL.. 



COEFF 

152 

TOLEZ1.=(1.0/ABSZ1/EPSZERO-1.0I*TOL.» 



COEFF 

153 

TOLEZ2.=(EPSZERO*ABSZ2-1.0)»TOL., 



COEFF 

154 

POWERSIZ1.1.Z1P1 .. P0WERS(EZ1 .1.EZ1P) .. POWERS (EPS. 1 .F PI 

• * 


COEFF 

155 

P0WERS(Z2.-1.Z2P1 .. POWERSIEZ2.-1.EZ2P1 ., 



COEFF 

156 

AFORA I. =1.2 ADOA 



COEFF 

157 

ABEGINA K.=I-1., 



COEFF 

158 

AFORA P.=l ASTEPA 1 AUNTILA M«K ADOA 



COEFF 

159 

ABEGINA F ACT . = A IFA P = 1 ATHENA (8*1-101/3 AELSEA 



COEFF 

160 

160** <P-1I/(P..5-K1«FACT., 



COEFF 

161 

COHYPF (K-.5.P.P.1 .5-K1 .. 



COEFF 

162 

BI/l.P/l . = F(/1/1 .. B(/2,P/1 .=F(/2/l 



COEFF 

163 

AENOA. , 



COEFF 

164 

P.=M»K., SI ( / 1 / 1 .=S1 (/2/1 .=S2(/1/).=S2 (/2/1 .=0.. 



COEFF 

165 

CONVSl.=CONVS2.=AFALSEA., 



COEFF 

166 

Z(/l/l ,=Z1P(/1.P/1 .. Z(/2/l .=Z1P(/2.P/1 .* 



COEFF 

167 

EZ</l/l.=EZlP(/l»P/).> EZ(/2/l,=EZlP(/2.P/l.. 



COEFF 

168 

B50RB6 • • 



COEFF 

169 

P.=P»1.. 



COEFF 

170 

1 70»* F ACT. = (P-1 1 / (P* ,5-K )*FACT .» 



COEFF 

171 

COHYPF (K-. 5, P.P* 1. 5-K1 



COEFF 

172 

AIFA C0NVS2 ATHENA AGOTOA BERS1 . . 



COEFF 

173 

COMUOI1 (EZl.EZ.EZ.il.* COMUOI1 (EZ.F.T2.11,, 



COEFF 

174 
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TEST <S2,T2«TOLEZl «BERS1 .C0NVS2) . * COEFF 

BERS1*. CQMUDIKZl.Z.Z.l) ., COMUOI 1 ( 2 ,F , T 1 . 1 ) * , COEFF 

TEST (S1,T1.T0LZ1 •850R66.C0NVS1 ) *• COEFF 

/COMMENT * RECURS1EFORMULES*. .< COEFF 

/FOR/ N.4M /STEP/ -1 /UNTIL/ 1-K /DO/ COEFF 

/BEGIN/ COEFF 

180** C0MUDI2<B.N*K,Z1P«N*K,T1«1> ., COEFF 

C0MU0I2<8,N*K,EZ1P,N»K,T2.1 > . , COEFF 

S1(/1/1.=S1(/1/)*T1(/1/)., Sl(/2/).=Sl(/2/>,Tl(/2/).» COEFF 

S2t/1/1 *=S2(/1/1 *T2(/l/> ., S2</2/> *=S2(/2/) ♦T2I/2/1 . . COEFF 

FIFA N*0 /THEN/ *30X0* AA*. COEFF 

ENl/l/l *=EP(/1 ,N/> *. EN(/2/).=EP(/2,N/>., COEFF 

C0MUDIl(S2.EN,L,-l).. COEFF 

H.=K*U/N«1>-1*. /COMMENT / RESP. -1 EN 1/N., COEFF 

COMUD I $ (EP,N,FGAM« I«LP3<1>«* COEFF 

/FOR/ g.=l,2 *00* COEFF 

190** /BEGIN* LM2I/J/1 .=H*(S1 </J/>»L</J/> ) *• COEFF 

LM3(/J/) .=LM2(/J/)-H«FGAM(/J, I/) COEFF 
LP3(/J/) .=<l-2*K)*H*LP3(/J/> *t COEFF 

LP2 (/ J/ ) *=LP3 ( / J/ I ♦ < 1 -2*K ) *H*FGAM ( / J i I / ) . * COEFF ' 

L ARRAY </l«6,N,J/) «=LP2 </J/ ) . , COEFF 

L ARRAY </I»7»N«J/l *=LM2 (/J/l * * COEFF 

LARRaY«/1»10.N»J/1.=LP3(/J/)*. COEFF 

L ARRAY (/l >1 1 .=LM3(/J/1 . . COEFF 

/END/., COEFF 

/END/., COEFF 

200** AA*. COEFF 

/FOR/ N.*l /STEP/ 1 /UNTIL/ M /DO/ COEFF 

/BEGIN/ COMUDI1 <S2,EPS,S2, 1) *, COEFF 

/FOR/ U.=l*2 /DO/ COEFF 

L ARRAY (/I,3,N,J/).=(S1(/J/)*S2(/J/)1/C/IF/ 1=1 /THEN/ 1 /ELSE/ N>., COEFF 
/END/., COEFF 

/END/ I-CYCLE., COEFF 

/COMMENT/ COMPUTATION OF THE SERIES LAMBDA., COEFF 

FGAMI/ 1,1/1 ,=FGAM(/ 1,2/1 .=0., COEFF 

FGAM (/£,!/) .=.5*GAMMA/SQRT< 1- .2S*GAMMA*GAMMA > ., COEFF 

210** FGAM(/2,2/) .=1.0/FGAM(/2,1/1 ., COEFF 

/FOR/ I. =1,2 /DO/ COEFF 

/BEGIN/ K.&I-1., COEFF 

H.=ARCTAN(Z1 I/2/1/Z1 (/l/> 1*.S., COEFF 

IZ12(/1/1 .=ABSZ1/P0WER/<K-.5)»(1-2*K)»SIN<H> ., COEFF 

IZIZX/P/i , = ABS2I /POWER/ OX-.Sl «COS (HI ., COEFF 

/FOR/ p.=0 /STEP/ 1 /UNTIL/ M»1 *00* COEFF 

/BEGIN* FACT.=/IF/ P=0 /THEN/1 /ELSE/ (P*K-1,5> /P*F ACT . , COEFF 

CO HYPE (K-.5,P*K-.5,P,1 1 ., COEFF 

B(/1,P/1 .=F (/l/l ., B(/2,P/1 .=F (/2/1 COEFF 

220** /END/., COEFF 

P.=M*1., SI (/l/l .=S1 </2/).=S2 1/1/1 .=S2(/2/l .=S3 1/1/ 1 .=S3 1/2/ > .=0 , , COEFF 
CONVS1 .=C0NVS2 .-CONVS3 .=/FALSE/., COEFF 

EZ(/l/l.=E21P(/l,P/).» EZI/2/1 .=EZ1P(/2,P/1 ., COEFF 

ZZ (/ 1 / > .=Z2P</l»-P/> ., Z2(/2/).=Z2P(/2,-P/)., COEFF 

Z(/l/l .=Z1P(/1,P/1 ., Z (/2/1 .=21P(/2,P/1 ., COEFF 

B20RB4 . . COEFF 

P.=P*1.» COEFF 

FACT.=(P*K-1.5)/P*FACT., COEFF 

COHYPF (K“.5,P*K-.5,P*1) ., COEFF 

230** /IF/ CONVS1 /THEN/ /GOTO/ 8ERS2 • , COEFF 

COMUDIl (EZ1,EZ,EZ,1) ., COMUOI 1 (EZ ,F , T 1 , 1 ). , COEFF 
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240** 


2 S0«* 


260** 


270** 


280** 


TEST<S1.T1,T0LEZ1»8ERS2.C0NVS1) 

8ERS2*. *IF* C0NVS2 /THEN/ *OOTO* 8ERS3 . < 

C0MUDI1 (ZZ.Z2.ZZ.-1 1 COMUO I1<ZZ,F*T2«11*. 

TEST (S2.T2.TOLZ2.8ERS3.CONVS2) 

BERS3. • COMUOIHZl.Z.Z.l)*. COMUD 1 1 ( Z ,F , T3, 1 ). , 

TEST (S3.T3.T0LZ1.820RB4.C0NVS3) .« 

FIF* FNOTF C0NVS1 <ORF FNOTF C0NVS2 FTHENF FGOTOF B20RB4., 
FCOMMENT X RECURSIEEORMULES. . 

FFOR * N.=M FSTEPF -1 FUNTILF 0 FOOF 
FBEGINF V 

C0MU0I2<B,N*1»EZ1P,N.1,T1»1> 

C0MUDI2(8,N.1.Z2P.-N-1 ,T2, 11*. 

C0MUDI2(B.N.1.Z1P.N.1,T3,1) . . 

SI 1/1/ > ,=S1 </l/l*Tl (/l/> SI </2/) *=S1 (/2/> *-T 1 (/2/> 

S2 ( / 1 / ) * = S2(/1/)»T2(/1/) . , S2</2/> *=S2</2/> *T2 1/2/1 .< 

S3(/l/l *=S3(/1/I *T3(/l/\ S3</2/l *=S3 (/2/I ‘ T3 (/2/I 
EN(/1/).=EP</1 «N-K » 1/ 1 . » EN(/2/l • =EP (/2 . N-K ♦ 1 / 1 
C0MU0I1 (Sl.EN.LM2.-ll 

K.=k*.<i/_(n.*.5)-u_m.,-fcommentf-resp.— i-en-i/<nm 72>-; t 

LM2 (/ 1/1 . =LM2 (/l/l *S3 (/!/>•• LM2 (/2/ 1 . =LM2 ( /2/ 1 »S3 (/2/ > . . 

COMUD 11 (IZ12.LM2.LM2.1 1 * , 

LM3 ( / 1 / ) *=LM2(/l/> *i LM3</2/> . =LM2 (/2/ ) -FGAM 1/2 , 1/ ) * , 

FFORF J, = 1 , 2 FOOF 

FBEGINF L ARRAY (/I»5*N*J/) *=H* < 1 -2*K ) »LM2 ( / J/ ) * , 

LARRAY (/1.9.N.J/1 *=H* ( 1 -2*K ) »LM3 ( / J/ ) 
LARRAY(/I.8,N,J/}.=-S2(/J/l .. 

FENDF • « 

*ENO *. « 

R(/l/).=R</2/> .=0., 

FFORF N. = 0 FSTEPF 1 AUNT ILF M *00* 

FBEGINF C0MUDI2(8.N,EZ2P.-N, T. 1 1 *. 

R < / 1 / ) «=R t/1/) *T < / 1 / > . > R(/2/) • =R C/2/1 ♦ T ( /2/ ) . * 

LP3(/l/> *=R (/l/l *S1 (/l/l . . LP3(/2/(*=R(/2/)<Sl (/2/1 .. 

EN(/1/1 *=EP(/1 «N*K/1 ENI/2/1 *=EP(/2.N.K/1 *. 
COMUOIl(LP3,EN,LP3,l) 

FFORF J.=1.2 *00* LP3(/J/1 *=LP3(/J/1 *LARRAY(/I .8.N. J/l *. 

COMUDI1 l IZ12.LP3.LP3.il *. 

H.=K*(1/(N*. 51-11*1. . FCOMMENTF RESP. 1 EN l/INM/21., 

FFORF J*=1.2 *00* 

FBEGINF LP2 </J/> *=LP3(/J/1 *FGAM </J, 1/1 
LARRAY (/I.4.N.J/1 *=H*LP2(/J/> *. 

LARRAY (/I.8.N.J/1 *=H*LP3(/J/1 *. 

FENDF 

FENDF*. 

FENDF I-CYCLE*. 

FCOMMENT F COMPUTATION OF LAMBDA AND OLAMBOA/DN. . 

LN2 ,=LN (2*0) ««LNZ1 (/l/> *=LN(A8SZ1) . ,LNZ 1 1/2/ 1 * = ARCT AN ( Z 1 1/2/ > /Z 1 (/I / 1 1 
FFORF I. =1,2 *00* 

FBEGINF SUM *=0 * * K* = l-I*. 

FFORF P.=0 FSTEPF 1 FUNTILF M*K FDOF 
FBEGINF FIFF P=0 FTHENF 

FBEGINF FACT *=F < / 1 / 1 * = 1 *0* , F(/2/). = 0.0 FENDF FELSEF 
FBEGINF FACT.=(P‘I-2.5)/P*FACT., 

COHYPF ( l-l *5»-P,-P- 1*2.5) . , 

SUM.=SUM-.5/P/(2»P-l) 

FENDF*. 

OCOHYPF ( 1-1 .S.O.-P.-l ,-P-I*2.5,-l I 
D ( /l/l . =LNZ 1 </!/> *2.9* (LN2* (K*l 1 / (2*P-1 1 *SUM) * . 


COEFF 

233 

COEFF 

234 

COEFF 

235 

COEFF 

236 

COEFF 

237 

COEFF 

238 

COEFF 

239 

COEFF 

240 

COEFF 

241 

COEFF 

242 

COEFF 

243 

COEFF 

244 

COEFF 

245 

COEFF 

246 

COEFF 

247 

COEFF 

248 

COEFF 

249 

COEFF 

250 

— COEFF 

251 

COEFF 

252 

COEFF 

253 

COEFF 

254 

COEFF 

255 

COEFF 

256 

COEFF 

257 

COEFF 

258 

COEFF 

259 

COEFF 

260 

COEFF 

261 

COEFF 

262 

COEFF 

263 

COEFF 

264 

COEFF 

265 

COEFF 

266 

COEFF 

26 7 

COEFF 

268 

COEFF 

269 

COEFF 

270 

COEFF 

271 

COEFF 

272 

COEFF 

273 

COEFF 

274 

COEFF 

275 

COEFF 

276 

COEFF 

277 

COEFF 

278 

*. COEFF 

279 

COEFF 

280 

COEFF 

281 

COEFF 

282 

COEFF 

283 

COEFF 

284 

COEFF 

285 

COEFF 

286 

COEFF 

287 

COEFF 

288 

COEFF 

289 

COEFF 

290 
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290®* DI/2/1 .=LNZ1 1/2/1 .« COMUO I1(F,D,0«1>«< COEFF 

DBI/l,P/> .=DF(/l/)-OI/l/> .. DB(/2«P/).=OF</2/>-D(/2/)., COEFF 

BI/1, P/».=F(/1/).. B(/2,P/> .=F(/2/> COEFF 

FENOF P-CYCLE., COEFF 

FFORF J.=l,2 F 00 F COEFF 

FBEGINF SI I/J/).=S2(/J/>.=(K*1)*B(/J*0/)., COEFF 

0S1 I/J/l .=0S2(/J/).=(K*1) *08 (/ J, 0/ ) • , COEFF 

FEND*., COEFF 

FFORF N.=l FSTEPF 1 FUNT1LF M FOOF COEFF 

FBEGINF C0MUDI2 (B,N*K»Z 1P«N*K* T 1,-1)., COEFF 

300** COMUD 12 (B,N,K*£Z1P,N,K»T2,-1 ) . , COEFF 

C0MUD12ID8,N»K,Z1P,N«K,DT1,-1) ., COEFF 

COMUD 12 <0B,N,K,£Z1P,N,K. OT 2,-1) ., COEFF 

FFORF J.=l ,2 FDOF COEFF 

FBEGIN* Sl(/J/).=Sl(/J/)*Tl</J/).» DS1 1/ J/) . = DS 1 (/ J/ ) »DT 1 I / J/ > , » COEFF 
S2 I/J/l .=S2(/J/> *T2(/J/( ., 0S2I/J/) .=DS2(/J/) *DT2(/J/) COEFF 
ENI/J/) .=EPI/J,N/) COEFF 

FENDF., COEFF 

C0MU0I1 tEN,S2,L, 1 > COMUO 1 1 IEN , 0S2 , DNL , 1 ) . , COEFF 

H. = 1.0*K*U*1.0/N) ., COEFF 

31 0** FFORF J.=l,2 FDOF COEFF 

FBEGINF LI/J/I .=S1 </J/)«L(/J/l ., ONL l/J/> .=DS1 I/J/) »DNL 1/J/) . . COEFF 

L ARRAY 1/1,1, N»J/) ,=H»LI/J/) ., COEFF 

L ARRAY I/I,2,N,J/) .=H«(K/N*L I/J/l *DNL(/J/) > COEFF 

FENDF., COEFF 

FENDF N-CYCLE., COEFF 

FENDF I-CYCLE . , COEFF 

FFORF I. =1,2 FDOF FFORF K . = 1 , 2 , 3 .6 . 7 , 1 0 . 1 1 FDOF FFORF J.=l,2 FOOF COEFF 

LARRAYI/I,K,0,J/) .=0.0., COEFF 

SKIPFI43)., SK1PFIA3)., BACKSPACE I A3) . , COEFF 

320** PUTARRAY(A3,PARAM) ., COEFF 

PUTARRAY(A3,LARRAY) ., COEFF 

ENDFILEIA3) ., ENDFILE (A3) . , COEFF 

FFORF I. =1,2 FDOF FFORF K.=l FSTEPF 1 FUNTILF 11 FDOF COEFF 

FBEGINF OUTPUT (A1,F(F*,3S,8D. SB, 3S,2Z0,/F)F,F(Fl =F)F,I,F(FK =F)F,K).« COEFF 
FFORF N • =0 FSTEPF 1 FUNT ILF M FOOF COEFF 

FBEGINF OUTPUT(Al,F(F/F)F) ., COEFF 

FFORF P.=I ,2 FDOF OUTPUT (A1,F<FF) F ,L ARRAY l/I,K,N,P/> ) COEFF 

FENDF COEFF 

FENDF COEFF 

330®* FENDF COEFF 

FENDF COEFF 

FEOPF COEFF 


291 

292 

293 
29A 

295 

296 

297 
29B 

299 

300 

301 

302 

303 
30A 
30b 

306 

307 
30B 

309 

310 

311 

312 

313 
31 A 
31S 
31b 
317 
31b 

319 

320 

321 

322 

323 
32a 

325 

326 

327 

328 

329 

330 

331 

332 

333 
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LINE 

0 

prograh begins 

1 MESSAGE ) 

LINE 

331 

PROGRAM ENDS 

(MESSAGE) 

LINE 

331 

SOURCE DECK ENDS 

(MESSAGE) 

LINE 

131 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

131 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

131 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

132 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

132 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

132 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

132 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

133 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

133 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

133 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

133 

NON-FORMAT STRING 

(MESSAGE) 

IrINE - 

134 

non-format string 

(MESSAGE ) 

LINE 

134 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

134 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

324 

NON-FORMAT STRING 

(MESSAGE) 

LINE 

324 

NON-FORMAT STRING 

(MESSAGE) 


THE FOLLOWING CONTROL CARD OPTIONS ARE ACTIVE I.L.O.O.X 


14.37.30. 

normal 

CONTROL 



FW A LOADER 

050741 FWA 

TABLES 04t>346 


♦♦ — CALL — 

-PROGRAM — 

— ADDRESS- 


—LABELED COMMON- 

- 

XXALGOL 

000340 


DATA 

OOOIOO 

ALGORUN 

013340 


DATA 

000100 

ALGLBOO 

015712 


DATA 

000100 

ALGLB01 

021127 


OATA 

000100 

ALGLB02 

021656 


DATA 

0U0100 

ALGLB03 

027525 


OATA 

000100 

ALGLB06 

030360 


DATA 

OOOIOO 

— ENTRY 

— ADDRESS- 



REFERENCES 

XXALGOL 

012375 




ALGORUN 

013340 

XXALGOL 



ALGLBOO 

015712 

XXALGOL 



ALGLB01 

021127 

XXALGOL 



ALGLB02 

021656 

XXALGOL 



ALGLB03 

027530 

XXALGOL 



ALGLB06 

030360 

XXALGOL 




FWA LOAO--LWA LOAD— BLNK COMN— LENGTH — 


UNSATISFIED EXTERNALS' 


REFERENCES 


CHANNEL. 60= INPUT. P80.R 
CHANNEL. 61=0UTPUT. PI 36. PP60.R 
CHANNEL. 40=60 
CHANNEL . 41=61 
CHANNEL. 43=LU43» A. 8 
CHANNEL. END 
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00®* /BEGIN/ /COMMENT A INTEGPAT IECONST ANT EN T. B. V. PkOGR. GAMMA-FLOW A.. 1NTCONS 
/REAL/ PI ,LN4.EPS2ER0»ALFA,GAMMA,Z1ABS.Z2ABS»TI.VT I.FMINTl . INTCONS 

FTI.CXTl.CXPI.CYTI.CYPI.FACTOR.C3Y.XTI.XPI .YTI.YPI.LNEPS.. INTCONS 

/INTEGER/ N.K.D.I.P.J.SIG.SIOE.RECO.A.AANTAL.CASE., INTCONS 

/ARRAY/ Z1.Z2.Z1DZ2.EPS.LNZ1 .FGAM.8,06»02B,L.DL,D2L, INTCONS 

KLl,KL2.KL3.ZlP</1..2/> , INTCONS 

PS IT I I/O.. 140.1 ..5.0..1/1 . INTCONS 

OX.OY </l ..3.1 ..2.0. .1/1 ,SIG1 .SIG2,SIG3</1 - .2. 1. .2/) . INTCONS 

LARRAYC/1..2.1.. 11,0.. 100.1.. 2/) .. INTCONS 

INTCONS 

10®» /PROCEDURE/ COMUD I ( A .8 . C • T ).•/ INTEGER/ T. ./ARRAY/ A.B.C., INTCONS 

/BEGIN/ /REAL/ MOD • , /ARRAY / P . Q ( / 1 . .2/ ) . . INTCONS 

P(/l/).=A(/l/). < P(/2/l.=A(/2/l.,0(/l/).=B(/l/).,Q(/2/) .=B(/2/> . . INTCONS 
/IF/ T /GREATER/ 0 /THEN/ MOD.=l /ELSE/ MOD.= INTCONS 

l/(0(/l/)«Q(/l/)»Q</2/)«0(/2 /)>.. INTCONS 

C</l/> . = <P(/1/I ®Q(/l/)-T®P </2/> ®Q(/2/> >«MOO.. INTCONS 


20 »® 


C</2/> .=(T®P(/l/>«0</2/> ♦P(/2/l«0(/l/l >®MOD.. 
-/END /-COMUDI.-. — 


/PROCEDURE/ C 0 HYPF(A, 8 .C»Z,F> . . / V ALUEX A . B.C. . 

/REAL/ A. 8 .C., /ARRAY/ Z.F.. 

/BEGIN/ /RE AL /PART. ./INTEGER ZK.KM., /ARRAY / TERM , TERMH ( / 1 . . 2 /) .. 

F </l/) . =TERM ( / 1 / I . = 1 . « TERM ( / 2 / ) • =F (/ 2 /) . = 0 ., KM.= 0 .« 
AA.. K.=KM»l.,PART.=(A*KM)«(b*KM>/( (C»KM)«K) 

COMUDI < TERM. Z. TERMH. 1 ) ..TERM (/I/) . =PART «T ERMH (/ 1 / ) 
TERMI/ 2 /) .=PART®TEHMH</ 2 /> .. 

F </l/> ,=r </l/l «TERM(/l/> ..F 1 / 2 / 1 .=F 1 / 2 / ). TERM </ 2 /> .. 
KM.=K. » /IF/ ABS ( TERM I/l/l/F (/l/l ) /LESS/ Z-fl /AND/ 


INTCONS 

“INTCONS - 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 


ABS(TERM(/2/)/F(/2/) ) ZLESS/Z-8 /THEN/ /GOTO/ BB INTCONS 

/ELSE/ /GOTO/ AA.. INTCONS 

30»® SB.. /END/ COHYPF . . INTCONS 

INTCONS 

/PROCEDURE/ DCOHYPF ( A * OA « 8 « OB » C « DC » Z .OF ) • « /VALUE/ A .DA.B.DB. INTCONS 

C. DC. ./REAL/A. DA. H. OB. C. DC. ./ARRAY/ Z.DF,. INTCONS 

/BEG IN//RE ALZDTFRM. ,/ INTEGER/*. .ZARRAY/KLAD. TERM, T .DT (/I ..2/) ., INTCONS 
OF 1/1/ I , = OF (/2/I .=DT (/!/) ,=OT 1/2/) . =TERM 1/2/ ) . = 0 . , INTCONS 

T(/2/l.=0., T(/l/).=l.» K . 1 . . INTCONS 

AA.. K.=K.l . ,TERM(/1/I .=< A.K>» (B»K)/(C*K)/(K.l ) ., INTCONS 

DTERM , = ( ( (B*Kl«DA.<A»K)»De»/(K«l)-TERM(/l/l*DCl/(C*K) ., INTCONS 
KLAO(/l/) ,=OTERM*T (/l/l ♦TERM(/l/>«DT</l/> ., INTCONS 

40»* KLAOI/2/) .=DTERM»T(/2/l ‘TERM < / 1 / > «DT (/2/) ., INTCONS 

COMUDI (KLAO.Z.OT. 1 ).,OF (/1/>.=0F (/ l/) ‘DT (/ 1/) .. INTCONS 

OFI/2/1 .=0FI/2/J*0T(/2/».. /IF/ ABS ( DT ( / 1/ ) /OF ( / 1 / ) ) INTCONS 

/GREATFH//-8 /OR/ ABS (DT </2/ ) /DF 1/2/ )) /GREATF.R//-B INTCONS 


S0«® 


/THEN/ /BEG IN/ COMUU I < TERM, Z ,KLAD» 1 ) . » 

COMUDI (KLAD.T.T.l ) ../GOTO/ AA /END/ 

/END/ DCOHYPE • * 

/PROCEDURE/ D2C0HYPF(A,0A,U2A,B.0B.02B,C»DC,D2C.Z.D2F) . . 

/VALUE/ A,0A,D2A,B,0B,D2B,C,DC,D2C., 

/REAL/ A,OA,02A,8,OB,028,C,OC,Q2C., /ARRAY/ Z.D2F., 

/BEGIN/ /REAL/ DAB , OAC ,08C , OCC . AK , BK, CK , Ab , AC.BC.CC ,FK ,F 1K.F2K., 
/INTEGER/ J.K.Kl • , /ARRAY/ T , DT «D2T »KL AD (/ 1 . .2/ ) . » 
T</1/>. = 1.. K.s-l.t D2F < / 1/ ) , = D2F </2/).=T(/2/).= 

DT (/l/l • =0T ( /2/ ) .=U2TC/l/> .=D2T </2/> .=0. . 

DAB.=DA«DB. , OAC.=UA®OC., 08C.=DB®DC., DCC.=DC®DC.. 

AA.. K . =K ♦ 1 . , K 1 . =K ‘ I « , AK.=A»K., BK.=B‘K., CK.=C‘K.» 


INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 


AB • =AK ®BK • , AC.=AK®C*.. BC.=BK®CK.. CC.=CK«CK.. 


INTCONS 


APPENDIX B 
LISTING OF INTCONS 


2 

3 

4 

5 

6 

7 

8 
V 

10 

11 

12 

13 

14 

15 

16 
17 

lo 

T9 — 

20 

21 

22 

23 

24 

25 

26 
27 
2b 
20 

30 

31 

32 

33 

34 

35 

36 

37 
3ft 

39 

40 

41 

42 

43 
4$ 

4b 


46 

47 

48 

49 

50 

51 

52 

53 

54 

“SB 

56 

57 

58 

59 
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FK.=AB/(K1»CK) . • FlK.=<BC*0A.AC*Db-AB*0C>/ <K1*CC» .. 

INTCONS 

60 


F2K.=(8C«02A«AC*02B-AB*D2C)/(K1*CC) .2* <CC*0AB-BC»DAC-AC*DBC«AB*0CC> / 

INTCONS 

61 

60** 

(K1»CK*CC) . • AFOH* J. = 1.2 *00* KLAO < /J/ 1 .=F2K*T </J/ 1 » 

INTCONS 

62 


2*F1K*DT (/J/) ♦FK«02T t/J/1 . . COMUDI (KLAD. 2 . D2T • 1 ) • • 

INTCONS 

63 


AFORA J.=1.2 *00* 02F(/J/».aD2F(/J/)*D2T</J/).« 

INTCONS 

64 


*IF* ABS (02T (/ 1/ 1 /02F ( / 1 / J ) AGREATERA *-8 *0R* 

INTCONS 

65 


ABS(D2T (/2/I/D2F </2/l 1 *GREATER* *-B *THF.N* 

INTCONS 

66 


ABEGIN* *FOR* J.=l»2 *00* KLAO (/J/ ) . »F1K*T(/J/)*FK 

INTCONS 

67 


•OT</J/>.. COMUDI (Z.KLAD.OT.l) .. AFORA J. *1.2 ADO* 

INTCONS 

68 


KLA01/J/1 .*FK*T</J/1 .. COMUDI ( Z .KLAD.T . 1 ) . < *GOTO* AA 

INTCONS 

69 


AENOA 

INTCONS 

70 


AENOA D2C0HYPF • i 

INTCONS 

71 

70** 


INTCONS 

72 


*PROCEDURE* T APE ( T < AH 1 • . *VALUE* T., AREAL* T.« AARRAY* AR., 

INTCONS 

73 


ABEGIN* AARRAY* H</1..4/1., * INTEGER* KT *KH»* 

INTCONS 

74 


KT.*1200*T.» 

INTCONS 

75 


READ.. GETARRAY(43«AR) .« KM. -600/AR ( /O .2. 1/ ) . • 

INTCONS 

76 


* IF* KH ANOTEQUAL* KT ATHENA AGOTO* READ.. - 

INTCONS 

77 


AENOA • ♦ 

INTCONS 

78 



INTCONS 

79 


APROCEDURE* CONSTANTS.. 

INTCONS 

Bo 


ABEGIN* 

INTCONS 

81 

80** 

AREAL* H «C2 1 . CZ2.M00. ARC . . 

INTCONS 

82 


AARRAY* EPSl.Hl«H2(/1..2/).f 

INTCONS 

83 



INTCONS 

84 


APROCEDURE* CMO (A.B.Z.T1.. AVALUE* T.t AREAL* T.« AARRAY* A.B.2.. 

INTCONS 

85 


ABEGINAAREAL* A 1 , A2 . B 1 . B2 .MOD . . 

INTCONS 

86 


A1.*A</1/1 . . A2.*A(/2/) •« SI. *81/1/). ♦ B2.»B</2/>.« 

INTCONS 

87 


MOO.-AIFA 0 ALESSA T ATHENA 1.0 AELSEA 1 . 0/ ( B 1 «B 1 »B2*B2 ) . . 

INTCONS 

88 


ZI/l/l .■M00*(A1*B1-T*A2*B2) .. 

INTCONS 

89 


2(/2/l .*M00*(A2*B1.T*A1*B2I .. 

INTCONS 

90 


AENOA CMO.. 

INTCONS 

91 

90** 


INTCONS 

92 


P1.*4.0*ARCTAN(1.0I .. 

INTCONS 

93 


EPS (/l/l .*EPSZER0*C0S(2.0*ALFA1.. 

INTCONS 

94 


EPS1 (/l/l .*1 .0*EPS</1/1 .. 

INTCONS 

9b 


EPS (/2/1 .-EPS1 1/2/1 •■EPSZERO*SIN (2 .0*ALFA) .. 

INTCONS 

96 


CMU(EPS,EPS1.H1,-1)., 

INTCONS 

97 


CM0IM1.EPS1.H2.-1).. 

INTCONS 

98 


H.*4.0-(0.9*GAMMA/P1) APOWERA 2.. 

INTCONS 

99 


CZ1.*1.0-H*H2(/1/I .. CZ2.**H*H2 (/2/1 . . 

INTCONS 

100 


M0D.*(CZ1*CZ1*CZ2*CZ2 1 APOWERA 0.25. . 

INTCONS 

101 

100** 

ARC.*0,5*(ARCTAN(CZ2/CZ1)*(AIFA CZl ALESSA 0 ATHENA SI0N(CZ2)*PI 

INTCONS 

102 


AELSEA 0.0)).. 

INTCONS 

103 


H2(/l/).*0.S*(1.0-M0D*COS(ARC) ).. 

INTCONS 

104 


H2 1/8/ 1 .**0 .S*MOD*S IN ( ARC) . • 

INTCONS 

10S 


CMO < H2.H1 . 2 1 **1 1 . . 

INTCONS 

106 


H21/1/I «*l .0*H2 </l/l . . 

INTCONS 

107 


H21/2/I .*-H2(/2/l .. 

INTCONS 

108 


CMO (H2.H1.Z2.~1)>. 

INTCONS 

109 


21ABS.*S0RT (Z1 (/l/l APOWiRA 2.Z1I/2/1 APOAERA 2).. 

INTCONS 

110 


Z2AiS.«SQRT(Z2(/l/l APOWERA 2*Z2(/2/l APOAERA 2).t 

INTCONS 

111 

110** 

CMDIZ1 .Z2.Z1D22.~1).* 

INTCONS 

112 


AENOA PROCEDURE CONSTANTS.. 

INTCONS 

113 



INTCONS 

114 


INPUT (RO.AIAAIA.CASE .EPSZCRO. ALFA.OAMMA) • . 

INTCONS 

US 


CONSTANTS.. 

INTCONS 

116 


OUTPUT (61 .A { A2 l/.T ( 19S) ) A) A. A ( ACASEA1 A. A ( AEPSZEROA) A, A ( AALEAA) A. 

INTCONS 

117 


PAGE 2 
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X(XGAMMAX)X.X(XRE Zt T A 1 X ) X , X ( X IM ZET A 1 X ) X , A ( XRE ZET A2X ) X • INTCONS 

X(XIM ZET A2X ) X , X (XABSZETA1X) X , X (XABSZETA2X) X , X (XRE Z1 DIV Z2X1X, INTCONS 

X(XIM Z1 OIV Z2X)X,X(XRE EPSX)X,X(XIM EPSX)X>.. 1NTC0NS 

OUTPUT (61 <7 (X2(/,7 (.D.10DX.Z02B) )X)X, INTCONS 

120*® CASE. EPSZERO. ALFA. GAMMA. Z1 < / 1 / ) ,Z1 1/2/1 .Z2(/l/> . INTCONS 

Z2(/2/),ZlABS.Z2ABS.ZlDZ2(/l/),ZlDZ2(/2/).EPS(/l/), INTCONS 

EPS 1/2/ ) ) . * INTCONS 

LNZ1 (/! / ) ,=LN(Z1ABS) • * LNZl(/2/).= ARCT AN <Z 1 1/2/ > /Z 1 (/ 1/ ) ) . , INTCONS 


INTCONS 

XBEGINX XARRAYX PARAM ( / 1 . .6/ ) . . INTCONS 

SK IPE (43 ) • . INTCONS 

E0F(A3. ALARM) ., XGOTOX SEARCH.. INTCONS 

ALARM.. INTCONS 

OUTPUT (A1,X(X//,X(XCASE UNKNOWN ON T APEX ) XX) X ) . . XGOTOX EOP.. INTCONS 

130** SEARCH.. INTCONS 

GETARRAY(A3. PARAM) .. GE TARRAY (43 .LARRAY ) . , INTCONS 

X IPX ABS(CASE-PARAM(/3/> IXGREATEHX0.5 XORX ABS (EPSZERO-PAR AM ( /A/ ) ) INTCONS 

XGREATE RX X-B XO RX ABS ( ALEA-PARAM ( /5/ ) ) XGREATERX — X_^fl_XORX— ABS.I GAMMA- — INTCONS— 

PARAM ( /6/ ) ) XGREATERX X-8 XTHENX XGOTOX SEARCH.. INTCONS 

XENOX.. INTCONS 


REW INO < A3 ) .. 

OUTPUT (A1.X(X//.X< XNUM BE RS OF TERMS IN POWER SER IESX ) XX ) X ) . , 

XFORX I. =1,2 XOOX XFORX P.=l,2 XOOX XBEGINX 

SIG1 (/I.P/) .=LARRAY (/ 1,3,1. P/) . . SIG3(/I.P/> .=L ARRAY (/I,7,I»P/) XENDX . , 
1 A0«* RECO • =0 . . LNA.=LN(A).» LNEPS . =-LN (EPSZERO) . . 

GAMMA. = . 5*GAMMA/P I • , 

E GAM (/ 1 / ) . = SQRT < 1-.26*GAMMA»GAMMA) ., EGAM</2/> ,=-.2S*GAMMA*GAMMA/ 

E GAM (/ 1/ ) . . 

inpuT(ao.x(xx)x.aantad .. 

XFORX A . = 1 XSTEPX 1 XUNTILX AANTAL XOOX 

XBEGINX INPUT (AO.X(XX)X.TI) •« T APE ( T I .PS I T I ) . , VTI .=SQRT ( T I ) . , 
FMINTI.=-1/VTI*1 .25* (3.8* (PS IT I ( / 1 ,2 . 0/ ) »2»T I*PS I T I (/I ,2, 1/) ) ♦ 


INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 


2.8»PSITI (/l.l,0/)-2*VTI« < 1-TI ) XPOwERX2 .5* (2 .A«LN ( T I ) *2.8) ) ., 
ETI.*2,5*TI*(1-TI) XP0WERX2.5. , 

ISO** CXTI.=CXPI.=CYTI.=CYP1.=0.. 

XFORX I. =1.2 XOOX XBEGINX XIFX I XEQUALX 1 XTHENX 
XBEGINX OCOHYPF (-.5.0«0«-l , 1 .5.-1 *Z1DZ2«0B) .. 

02C0HYPF (*.5.0.0,0,**1,0,1.5.*1,0*Z10Z2,026) ., L(/l/).-l»EPS(/l/),. 
L (/2/) .=EPS(/2/) .. KLl </l/> .=-LNZl </l/ 1 -LNA*2*DB (/ 1/ > ., 

KL1 (/2/ ) .=-LNZl (/2/) *DB(/2/l ., COMUOI (L.KL1 »DL. 1 ) . . 

KLl < / 1 / ) .=-LNZl (/l/)-LNA»2., KLl (/2/> .=-LNZl (/2/) .. 

COMUOI (KLl .DB,KL2,1 ) . . COMUD I (KL 1 ,KL 1 .KL 1 , 1 ) . . 

KLl < / 1 / I ,=KL1 (/l/) *2«KL2(/l/> ♦PI*PI/3»A*02B(/1/) .. 

KLl (/2/> • =KL 1 (/2/) *2*KL2 (/2/) *028(/2/) .. COMUOI (L.KL 1 .02L » 1 ) . . 
160»» COHYPF (-.5.-1 ..5.Z1DZ2.B) ., OCOHYPF ( -.5. 0 ,- 1 .-1 , .5. -1 . Z 1 DZ2.0B ) . . 


INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 

INTCONS 


02COHYPF (-.5.0.0. -1 .-1 .0. .5,-1 .0.Z1UZ2. 020) ,. XFORX K.=1.2 XDOX 
XBEGINX B </K/l . = -.5*B(/K/) .,08(/K/l .=-.5*08 (/K/) . . 

02B(/K/) •=- .5*028 (/K/ ) XENOX., COMUOI (B.Z1 ,KL1 »-l ) .♦ 

L </l/) , = L ( / 1/ ) *2*KL 1 (/l/) ., L(/2/) .=L(/2/) + 2®KL1 (/2/> .» 

KLl (/l/) .=-LNZl (/l/l-LNA-l ., KLl (/2/I ,=-LNZl (/2/) . .COMUD I ( KL 1 , B .KL2. 1 ) 
KL2 ( / 1 / ) . =KL2(/1/)*0B(/1/).. KL2(/2/l .=KL2(/2/) ♦DB(/2/) ., 

COMUOI (KL2.Z1.KL2.-1 ) .. DL(/1/) . =OL ( / 1 / ) *2*KL2 { / 1/ ) ,.DL (/2/) ,=0L(/2/> » 
2*KL2(/2/).» COMUOI (KLl .KLl .KL2. 1 ) .» COMUOI (KL2 .B.KL2. 1 ). , 

COMUOI (KLl .OB. KLl . 1 ) . . 

170*® KLl ( / 1 / > .=KL2(/1/) »2*KL1 ( / 1 / ) » (PI*PI/3«1 )*B(/l/> ♦02B(/1/) ., 

KLl ( /2/ ) ,=KL2</2/) »2«KL1 (/2/» * <PI*PI/3*l)*B(/2/)*D2B(/2/)». 

COMUOI (KL1.Z1.KL1 «-l ) . . 02L ( / 1 / ) . =02L ( / 1 / I »2«KL 1 < / 1 / ) ., 
D2L(/2/).=02L(/2/)»2*KLl</2/)., XtNDX XELSEX 


INTCONS 
INTCONS 
INTCONS 
INTCONS 
, INTCONS 
INTCONS 
INTCONS 
INTCONS 
INTCONS 
INTCONS 
INTCONS 
INTCONS 
INTCONS 


1 lrt 

119 

120 
121 
122 
123 
12A 

125 

126 
127 
126 

129 

130 

131 

132 

133 
13a 

—135 

136 

137 

136 
139 
1 AO 
1A1 
1A2 
1 A3 
1 AA 
1A5 
1A6 
1A7 
1AB 
1A9 

150 

151 

152 

153 
ISA 

155 

156 

157 
156 

159 

160 
161 
162 

163 

16A 

165 

166 
167 
166 

169 

170 

171 

172 

173 
17A 
175 
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ABEGINA OCOHYPF ( .5.0.0. -1. . 5 . -1 . Z 1 DZ2.DB I .. 

D2C0HYPF1. 5*0. O.O.-l.Ot. 5.-1 «0.Z1DZ2.D2B>.. L </ 1/ I .=- 1 -EPS l/l/l . . 
LI/2/1. = -EPS 1/2/ ) • « KL1 </!/) .=-LNZl 1/1/ I -LN9*0B </ 1/ ) .. 

KL 1 ( /2/ ) • *-LNZ l(/2/)»0B(/2/)». COMUDI (L .KL 1 .KL1 . 1 ) . . 
DL(/l/).=-L(/l/)*KLl(/l/).. 0L(/2/).= -L(/2/)*KLl</2/) . . 

KL1 l/l/l .*-LNZl I/1/I-LN4,. KL 1 1/2/ 1 , =-LNZ 1 < /2/ ) . » 

180*» COMUDI (KL1.O0.KL2.1) .. COMUDIIKLl.KLl.KLl.il.. 

KL1 (/l/) .*KLll/l/> *2«KL2</1/I*PI*P1/3*D2B</1/I . . 

KL1 </2/> ,»KL1 1/2/ ) *2«KL2 1/2/ >*0281/2/1 .. COMUDI (L.KL1 .KL1 . 1 ) • . 

02L ( / 1/ ) . = -2*DL l/l/l *KL1(/1/I.. D2LI/2/I.* -2*DL</2/> *KL1 1/2/1 AENOA. . 
XPI.*FGAM</I/l*Pl*FTl*0LI/2/l .. 

XTI.=FGAM(/l/l*tVTI»FMINTI»OL</l/> *.5*FT I*DZL l/l/l I .. 
YPI.»-FGAM(/I/)*PI*FTI*DL(/1/I .. 

YTI.-FGAM l/I/l* I VTI*FMINTI«OL 1/2/1 ♦ .5*FT I*02L 1/2/ I I . . 
CXTI.=CXTI*XTI..CXPI.»CXPI*XPI..CYTI.«CYTI*YT1..CVPI.*CYPI*YPI AENOA.. 
AFOKA I. >1.2 ADOA 
190«» ABEGINA A IF A A*1 ATHENA 

ABEGINA AREAUA ARG.EMH .EMI ,EM .M. TOL.SOM. T 1 . T2. . 
TOL.*ll.O/ZlABS-1.0)»A-7.. 

Z1PI/1/I .■!•« ZIP 1/2/ > .*0L l/l/l .*DL 1/2/1 .»SOM.«0.0., 

P .*1- 1 • * 

NEXTP. , P.«P* 1.. COMUOIiZlP.Zl.ZlP.il.. 

C0HYPFII-1.5.P*I-1.P*1.5.Z1DZ2.BI . . 

OCOHYPF 1 1-1. 6*0.P* I-1.-1.P*1.5.-1 .Z10Z2.0B) .♦ 

FACTOR. «AIFAP AEQUALA 2-1 ATHENA 18*1-101/3 AELSE* IP* 1-2 1 / IP* ,5) 

•FACTOR.. AFORA K.*l .2 ADOA ABEGINA 8 l/K/l .*F ACTOR*B I /K/ 1 , . 

200** DBI/K/I ,*FACTOR*DBI/K/l AENOA.. 

S0M.«S0M*1/|P*I-1)/(2*(P*I-1I-1) .. 

KLH/l/l .*-LNZlt/l/l-LN9*|AlFA 1*1 ATHENA 1/P*2/ (2*P*1 ) AELSCA 
1/ (P»l 1 1 *SOM,. KLt 1/2/1 .*-LNZl 1/2/1 ., 

COMUOI IKLl.B.Ktl.l).. KLll/l/l .*KL1I/1/I*QB l/l/l.* KL1 1/2/ I .»KL 11/2/1* 
OB 1/2/ 1 .. COMUDI IKH. Z1P.KL1.1I.* 

M«*P* l . * A IF A M AGREATERA 690/LNEPS ATHENA 

ABEGINA EMR.sEMI.sO AENOA AELSEA 

ABEGINA EM.»£PSZEBOAPOIYEBAM., ARG.»2»M*ALFA., 

EMR.»EM*COSIARGl .* EMI.b|M*5IN(ARGI 

210** AENOA.. 

T1«*(1*EMR)*KL1 l/l/l -EM I*KL 11/2/).. OL l/J/l .*DL l/l/l *T1 . . 

T2. • 1 1«EMR)*KL1 1/2/1 *EMI»KL1 l/l/l.. OL 1/2/1 *»DL 1/2/1 *T2. . 

AJFA (Tl»Tl*T2*T2>/(0L(/l/l*0L(/l/)*0L(/2/l»0L 1/2/1 1 AGREATERA 
TOL*TOL ATHINAAGOTOA NEXTP.. 

OUTPUT I41.AIA//.3Z02BA) A.P) .. 

AEORA K.*l . 2 AO0A SIG2I/I.K/I ,»0L l/K/l ♦ I l-I 1*8101 l/I.K/l 
AENOA A*1 . . 

L l/l/l #* f JOH/I.l/l.. LI/2/1. *81011/1. 2/1,. 

OL l/l/l. *81021/1. 1/1.. OL 1/2/1. *81021/1. 2/1. . 

220** XP1 .*FOAM l/l/l *P1*FT1*L 1/2/1 . . YP1 ,o-F6AM l/l/l*Pl*FTI*L l/l/l . * 

XTI. *FOAM l/I/l *1VTI*FMINT1*L l/l/l *FTI*OL l/l/l >.. 

TT I. »FOAM l/I/l* I VTI*FM|NTI*L 1/2/1 *FTI*OL 1/2/1 >.. 

CXT I ,*CXT I.XT 1 . . CXP1.*CXP1*XPI.. CYT 1 .*CYTl*VTI . . CYPJ,*CVPI.YPI .» 
Ll/l/l.® ilOII/l.l/l.. LI/2/1.* 81631/1. 2/1 •* 

AT 1. »F6AM</ I/I*L l/l/l*. S*FTl.» VTI ,*-FOAMI/l/l *L 1/2/1*. 8*FT1 . . 
CXTI.*CATI*ATI.* CYTI.*CYTI»YTl AENOA. . 

C3Y.*.S*0AMMA*IVTI*FMIN Tl-1 »2§*VTI* (PSIT1 1/1.2. 0/1 ♦2*TJ*P§|T1 1/1.2. 1/1 
»2.8*FTI I , . 

oxi/i. i.e/i, *-exTi». ox(/i.i,i/>,*exTi.. ovi/i.i.o/i.* -ctti.* 

230** ori/l. 1.1/1. sCYTI., AFORA 0.*i, 3 AOOA AFORA §16. *0.1 AOOA 

ABE61NA OXI/J.l.SIO/l.* -CAP!.. OY I/O. 1 .S16/I .**CYPl AENOA.. 


INTCONS 

176 

INTCONS 

177 

INTCONS 

176 

INTCONS . 

179 

INTCONS 

180 

INTCONS 

181 

INTCONS 

182 

INTCONS 

183 

INTCONS 

184 

INTCONS 

185 

INTCONS 

186 

INTCONS 

187 

INTCONS 

188 

INTCONS 

189 

INTCONS 

190 

INTCONS 

191 

INTCONS 

192 

INTCONS 

193 

INTCONS 

194 

INTCONS 

195 

INTCONS 

196 

INTCONS 

197 

INTCONS 

198 

INTCONS 

199 

INTCONS 

200 

INTCONS 

201 

INTCONS 

202 

INTCONS 

203 

INTCONS 

204 

INTCONS 

205 

INTCONS 

206 

INTCONS 

207 

INTCONS 

208 

INTCONS 

209 

INTCONS 

210 

INTCONS 

211 

INTCONS 

212 

INTCONS 

213 

INTCONS 

219 

INTCONS 

215 

INTCONS 

118 

INTCONS 

217 

INTCONS 

218 

INTCONS 

219 

INTCONS 

22 0 

INTCONS 

221 

INTCONS 

222 

INTCONS 

223 

INTCONS 

229 

INTCONS 

115 

INTCONS 

210 

INTCONS 

til 

INTCONS 

lie 

INTCONS 

229 

INTCONS 

230 

INTCONS 

231 

INTCONS 

232 

INTCONS 

233 
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XFORX J. =1.2.3 XOOX XFORX SIG.=0.1 XOOX XBEGINX OX ( / J. 2, S I G/ ) . = 

-0X</J.1.SIG/) ., OY</J.2.SIG/).=-DY</J.l.SlG/> XENOX.. 

XFORX SI0E.=1.2 XOOX XFORX SIG.=0.1 XOOX OY ( /3. SIDE . S IG/ > . = 
0Y</3.SIDE.SIG/)-C3Y., 

OUTPUT (<,1,X(X///.5S«0.AD./X>X.X(XTAU1 = X>X.TI>.. 

XFORX SIG.=0.1 XOOX XbEGINX OUTPUT (Al . X ( X/X IX 1 . . 

XFORX J.= 1 .2. 3 XDOX XBEGINX OUTPUT (A 1 . X < X/X ) X ). , 

XFORX SIO£.=1.2 XOOX OUTPUT (Al . X ( X2 ( «ZO .6028 > X ) X .OX (/J, SIDE .S I G/> . 
2A0»« OY (/J.STOE.SIG/I 1 .. 

XENDX XENDX XENDX . ♦ EOP.. XENDX 
XEOPX 


17. SS HRS 


INTCONS 

23a 

INTCONS 

235 

INTCONS 

236 

INTCONS 

237 

INTCONS 

238 

INTCONS 

239 

INTCONS 

2A0 

INTCONS 

2A1 

INTCONS 

2A2 

INTCONS 

2AJ 

INTCONS 

2AA 
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PROGRAM BEGINS (MESSAGE ) 1 
PROGRAM ENOS (MESSAGE) l 
SOURCE OECK EKIDS (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) I 
NON-FORMAT STRING (MESSAGE) I 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) l 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) I 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) I 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) 1 
NON-FORMAT STRING (MESSAGE) * 
NON-FORMAT STRING (MESSAGE) 1 

THE FOLLOWING CONTROL CARO OPTIONS ARE ACTIVE I.L.O.Q.X 


CORE MAP 17.56.06. NORMAL CONTROL 

TIME LOAD MODE — LI— 12 TYPE USER CALL 

FWA loader 053741 FWA TABLES 051363 

-PROGRAM AOORESS- --LABELFO COMMON— 

XXALGQL 000340 OATA OOOlOO 

ALGORUN 011340 OATA 000100 


ALGL0OO 

013712 


DATA 

000100 

ALGLBOI 

01/127 


OATA 

000100 

ALGLB02 

017656 


DATA 

000100 

ALGLB05 

025525 


OATA 

000100 

ALGLBQ6 

026317 


DATA 

000100 

--ENTRY- 

ADDRESS- 



REFERENCES 

xxalggl 

010371 




ALGORUN 

01 1340 

XX ALGOL 



ALGLBOO 

013712 

XXALGOL 



ALGLBQl 

017127 

XX ALGOL 



ALGLB02 

017656 

XXALGOL 



ALGL8Q5 

025525 

XXALGOL 



ALGLB06 
UNSA 

026317 

TISFIEO EXTERNALS— 

XXALGOL 


REFERENCES 


CHANNEL .60= INPUT *P80.H 
CHANNEL.6l=0UTK»UT*P136*PP60*R 
CHANNEL .40=60 
CHANNEL .41 =61 
CHANNEL.43=LU43.A,0.D5 
CHANNEL »END 


000100 031421 027221 002200 

FWA LOAD— L*A LOAD— 8LNK CONN— LENGTH— 


L INE 0 
LINE 241 
LINE 241 
LINE 115 
LINE 115 
LINE 115 
LINE 116 
LINE 116 
LINE 116 
LINE 116 
LINE 117 
LINE 117 
LINE 117 
UNE 117 

line lie 

LINE 110 
LINE 110 
LINE ?36 
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uO®® •clEGlM' 'COMMENT' Tut COMMUTATION Of TAIKCI A NO ThETaIO*. 

1 INTEGER' MAX.CAsc. 

MAX. =100.. 

1 bE G I N • 'REAL* cPSEcRO.ALF A.itAMMA, Tl , I .Th.LNKPSO* I 1 1 , I 1 u 3 I I .5*) 
IHC. 

1NTEG.OT I , U V , F I *001 , TOL.ZERU.LC.PHlt « Pm I T , Ph I TH • P 1 «RAO ,0 T Au.O THi 
1 INTEGtR 1 Ki I I 'NiJiUi TYPE .ml , IN T if iJim T INK* SEP I ilNWiX, 1 .Mi • 3, TNR, 

• ARRA Y • FACT .f OAM (/i . .3/1 .U(/i..48/> .L ARRAY (/ I . . 2 • l . . 1 l . 0 . . 10U . 
PS I T.P31TI I/O. • 1“0. i . .1.0. . »/> .Cl /l. .MAX/) .I)P0T.JP0 Tm.luC(/-1‘.. , 

s(/i.. 2 .o..i/» .oum.la i/i . .t /) . . 

10®® • INTEGER* 'ARRAY' CO.SloNL ( /I . .2/1 lUm (/-!•♦. .-!/) .lmax (/I . .5. 1 . , 

•PROCEUURE' CMARLYl.jNITAu.PSin .. 'REAL' IAu.. • aura y • PS 1 1 . . 
'begin* 'Comment' Chape yg inf unction 5 for tao less .us .. 

'REAL* TOE. M . T . 0 T T • UN T ♦ I) r ON T . SOM i . SOME . S0*3 . SOM*. . f Ia.I tA. 

PS I .OTPS I .0NP5I .OTiJNPSl . ST.SuTT. . 

'INTEOER' M.K.A.d.l.o., 

• REAL • 'PROCE OURt • N. »N.=A®M..5«b. . 

TOL. = '- !!. « ; 


PSIT I/O.J.U/I . =P>1 T I/O. 3. 1/1 .=0*. 


2u®® 


•FOR* M.=0 • STEP' 1 'UNTIL' 1 0(1 ' 1)0* 

•BEGIN* A.=i., o, = u.. 

AA.. T.-SOMi.'i.' I • = I - 7® A ♦ o°M ♦ 9 I /2 • . 

UTT . =S0M2. =UNl . = 3GM 3, =OTOnT . = 30*4 . =u . . 

' IF'M'E0UAL'0*AN0'd'E90AL'0'THEN"ouT0'CC.. IX. = J.. 
oil.. K.=K*1«. F 1K. = (-1 ,t5®'<® (N«l> » 1K-U® (N.K-J.bl I /<n»iO/K«TAu. • 
•IF' 6'EOUAL' u 'ThEN' 

• BEGIN *F2K. = i , 23/K® <-!♦ (K-i I / <N»K I 'POWER • t® lx. .2.81 > «TAU. • 

utont . =f ik* (otont*u.ni/tau» .fek*(ott*t/taui.i 
3o ®» unt.=fik»<jnt»F2k»t., som.s.^som i.ont. . 5um4. = -,om4.utoni 'end*.. 
UTT.=FiK*U)TT*T/TAU> .. T.=f 1 ST.. 30*1 .=3uMi » T. . 30*2. =30*2*07 T 
'IF' AriS(S0Mi*S0M2l 'LESS' • - 3uQ 'TMEN' '0010' 3 m.. 

•IF' ArfSIT/SoMl) 'GREATER* TOL 'OR' ArlSlUT r/S0M2t 'GRtAItR' IOL 
•THEN' 'GOTO' Mb • « 'IF' o 'NOTtOUAL' 0 'TMc.N' 'GOTO' Cc.. 

•IF' AdS < 30M3»3OM4 ) • LEaS ' '-300 'THEN' 'GOTO* Mm.. 

•IF' AbS<uNT/50MJ) 'uREATER' TOL 'Op* AMS ( 0 T ONT /SOM*. ) • oRlm T t R ' 

• THEN* 'GOTO' nb. . 

CC. .H.=T AU' POWER* ( .m*N> . . PSI I </M. I«0/> ,=PSI . =H®30M1 . . 

PSI T I/M. 1,1/) ,=OTPSl.=.3®N/TAU®PSl.H«SOM2. • 'IF' o'touAL' u • TMI 
AO*"* 'dEuIN' PSI H/M.2.0/ I .=UNP3l . = .5®LN< TAU) ®R31 .m®30M3. . 

PSITI/M. 2,1/1 .=UTDNR3l . = .3®LN< TAul »uTPSl ♦ . 3/ T Au®P3l .m® ( .3®NXTao 
SOM-.) ., 

d.=i.. 'GOTO' AA 'ENO'., 

•IF* 6 'EQUAL ' 1 'Then' 'dEGIN' A.=-i.. M.=-l., 'GOTO' AA 'ENO'., 
•IF' M 'GREATER' 1 'Then* 

•dEGIN' K • =0 . * T.=ST.=i.. OT T . =SOT T . =UNI . =0 TONT . =0 . • 

SOMI .=SOM2.=5OM3.=SU*A.=0. . 

uo.. k. =<♦!.. 'IF' k 'notloual' m then' 

'BEGIN' FIK. = <-1.23®M« (M-i I « <K-I I »<*-M-3.3» I / ( K -M I /K « I Au. . 

50*"* F2K. = 1 ,23/K" (-1 ♦ (K-1)/(A-M)/(K-M| »(K.2.o) I »TAU 'ENO* 'EcSE' 
•6 EGIN'FIK.=j , 23® 1 i-H> /M»(M®2.8» »TAU.« 

F2K.=(3.3-2.PS/M)«TAU 'ENO'.. 

0TDNT.=F1K® (UtoNT .UN T/TAU) ®F2<® <UTT® T/TAU) . . ONT ,=F U»UNT »f 2K®T, 
U I T.=F t K* (OIT»T/TAU> . . 1.=F1K®T.. 

•IF' K 'LESS'M* ThEN"oEoIN' ST. = 3T«T. . SOT J i=SU T T ®0T T . , 

•IF' AdS < S T® 30 T T 1 'uREATER' '-300 'THEN' 'dEGIN' 

•IF' ABSIT/STI • LESd • TOL 'AND* Ab3 < OTT/SOT T I 'LESS' TOL 
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•THEN* • GOTO* EE 'END*.. 

* end • • . 

60*** 'IF* K 'EQUAL ' M 'THEN* • bl6I N* SOM 1 . = T . . S0M2. = DNT . . SOM 3. =UT T . . 

SOM4 • =DTONT • END • • • 'IF* K 'GREATER' M • THEN* 

•BEGIN* SOMi .=SOHl «T. . SOM3. =S0H3.0I T . . S0M2.=S0M2«DNT . . 
SOM4.=SOM4.GTONT. . 

•IF* ABS(S0Pi®b0M2®SUM3®S0M4> 'LESS* *-300 * THEN • »GOlO* UU.. 

•if* absit/somi) 'ureater* tol *or* absu)nt/som2> 'Greater* tol 'or* 

ABS (OT T/SOMJ) 'GREATER* TOL 'OR* ABS(DTONT/SOM4> 'GREATER* TOL 
•THEN* 'GOTO' 00 'ENU* 'ELSE' 'GOTO* DO.. 

EE.. 

PS IT </M, 3.0/» .=PSI.=TAU' POWER' (-.5®M) •< . 5®LN ( TAU) ® SOMl » ST »S0M2> .. 

70®* PS IT I/M.3.i/> . =0 TPS l.=-.5®M/TAU«PSI» TAU 'POWER' (-.S*M>® 

( .S/TAu*S0Mi.S0TT*S0MA*.5«LN(TAU) ®SUM3) 'END' . . 

•END' M CYCLE. • 

•ENO'., 

•REAL' 'PROCEDURE' tPSAL6(N.P. INF . TN. TOL.NRES) . . 

•VALUE* P. INF. TOL.. 'REAL' TN. TOL. . 'INTEGER* N.P* INF .NRES. . 
•BEGIN' 'REAL' AUXO . AUX 1 . AUX2. RES. TOLR. TOLH. . 

• 'Integer* m.b.i.e.mmax.. 

•ARRAY' L(/O..INF-P/) .EPS ( /- I . . 1 / > .. 

Bo*® MMAX. = INF-P. . FI. si. si.. 

N.=P.« AuXO.=TN.. 

N.=P«1 . . AUX 1 • =TN. .L I/O/) .sAUXO'AUXl. .L f/l/l . = 1 . 0/ ( AUX l « • -200 > 
NEW L.. I.s-I., E. =(1-11/2.. EPS(/-l/> .=L (/M.£/> . . M.=M»1., 

N. =N* 1 • * AUX * • =TN. . AUX0.=L(/0/l 'Auxi.. AUX I . = 1 . 0/ ( AUX 1 » • -200 ) 
•FOR' S.=2 'STEP' 1 'UNTIL* » '00* 

•BEGIN' AUXb.=L (/S- 2/) ♦ 1 . 0/ ( AUX i -L </S- 1 /) *'-200) . . 

L(/S-2/) .=AUX0. . AUxO.sAUXl.. AUXl.=AUX2 

•ENO'.. 

LI/M-l/) ,=AUXO.. L (/M/I .=AUXi . . 

so*® 'IF' M 'LESS' 3.6 'THEN' 'GOTO* NEW L.* RE S. =L (/M-l-2/1 . • 

TOLR.=ABS(RES-EPS(/-I/I ) .. TOLH. = ABS(R£S-EPS(/I/> > .. 

•IF* (TOLR 'uREATER* TOL 'OR' TOLH 'GREATER' , TOL) 

•AND* M 'LESS' MMAX 'THEN' 'GOTO* NEW L.. 

NRES.=N.. £PbALG.= 

' IMRES'LESS'EPSI/ 1/1 • ANU' EPS ( / i/> *LESS'EPS(/-1/) • THEN' 

EPS < / 1/) 'ELSE' 

• IF 'RES 'LEGS' EPS (/-!/) • ANO' EPS ( /-!/ > 'LESS* EPS!/ 1/) • THEN' 

EPS (/-I/ ) 'ELSE* RES 
•END' EPSALG.. 

100®* 

'REAL' 'PROCEDURE' HH(DI.. 'INTEGER' 0.. 

•BEGIN* 'REAL' FN. Cn.FNL. EPSoN. . 'INTEGER* U.V.C1.C2.. 

•ARRAY' L.HLP.EPSM/* ,.2/> . FT(/0. .!/>.. 

•IF* K'GREATER'O'THeN* 'BEGIN* u.=FNR/10.. V. = 1 »FNR/ Is. . 

FN.s (N. '-20) ' POWER 'U/ (N. (-1) • POWER 'F NR. ( • IF 'FNR'LESS'3' THEN' ,s 
•ELSE' 0)) 'POWER' V 'END* 'lLSE' FN.=1.. 

CN.s'IF' INT'LESS' S 'Then* 1 'ELSE' C(/N/l.. 

•IF' II 'LESs' 3 'THEN' 'BEGIN' 'FOR' RI.=R.I 'DO' 

L(/RI/I ,=LARRAY(/II,LNR.N.RI/) 'END' 'ELSE' 

110®® 'BEGIN' 'IF* (-1) 'PUwER'LNR'GREATER' 0 • THEN"BEGIN'L (/2/I .=0. • 

L ( / 1/ ) .=• IF 'LNR 'EQUAL '20' THEN' l» 1/N'ELSE •-»/ (N®N> • END' 'ELSE' 

'BEGIN' Cl.=ENTItR(S/10*.0i) .* C2.=S- 1 0®C i . . 

FNL.=l-l/N. . EPSON. =tPSZERO'POwER'N.. 

EPSN ( / 1/ ) .=EPS0N«C0b(2»N*ALFA) .. EPSN</2/) .=EPS0N»SIN<2®N«ALFA> . . 

• IF'Cl 'EQUAL' J'THEN' 
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•BEGlN*HLP(/i/> .=FNl« <£PSN</1/1 ®LNEPSU-EPSN 1/2/ > ®2®AlFA> . . 

HLPI/2/1 .=FhL«(2PSN(/l/>®2®ALFA»2PSN(/2/l ®LNEPSO> 'E nD* . . 

' Ir *C2*EQUAL* 1 *THEN*EPSN(/l/> .=EPSN(/l/>-i.« 

• IF *Ci • EQUAL* <2* THEN* • BEGIN' L </l/> .=FNL®EPSN < / 1 / > . . 

120®® L(/2/> .=FNL*EPSn</2/> 'END* 

•ELSE* 'BEGIN* L </ 1 /> . =HLP I /i /> *EPSN < / 1/) / ( N»N> . . 

L(/2/> .=HLP(/2/» .£PSN(/2/> / (N*N> 'END*.. 

'IF* C2*EQUAL*i'THEN'* BEGIN* HLP ( / 1/ > . =L ( / 1/ ) . . 

L (/!/) .=-L</2/» . > L </2/> .=HLP</1/ I . • 'ENU* 

•ENU' 'END*.* 

FT (/D/ > .=PSlT(/N.TNR.D/> . . 

'FO«'RI. = ». I '00* • BEG IN* L (/PI /I .=S IGNL < /R I / I »L < /Rl/ I .. 

LA(/CO(/Rl/>/> .=L(/PI/» *ENO'.. 

•FOR'RI .=R. I *00* 

130**** 8 </RI .0/) .=FN»CN»F T l/D/> ®PSIT I I/N.T INR.O/ * »L < /CO ( /R 1 / > / * . . 

bR.= 6(/R,0/» 'END* • ♦ 

•REAL* • PROCEDURE • P(TEST).. • VALUE ' TEST . . ' I NTE6ER • TEST . • 

•BEGIN* 'REAL' A. HLP.- ' INT EGER' J .Ri O. .' INTE GER * » ARRAT ' PO S ( / 1 . .a/) . » 

S". = • IF *~K~* GREATER'* . U 'THEN* 0(/K/) *ELSE • 

Q(/QNi I/K/) / I .. Pit*, si 000000000.. CU < / i / I . = • I F • S*LESS * o • THtN* c • ELSE • 1 . • 
C0</2/l.=3-C0I/l/>.. S.=A»S<5».» 

•FOR* J.=l 'STEP* 1 'UNTIL* 8 *00* 

• BEGIN • POS (/J/> . =S , OIV*PiO.» S.=S-Pi0 ®POS ( / J/ ) .« P10.=(P10*1)'DIV*10 
140»* 'END'.. 

II.=POS</l/( ..TYPE. =POS 1/2/1 . «N1 .=PuS 1/3/ 1 . . I NT . =POS I /*♦/ > • . 

F NO. =P0S 1/5/1 . • TNR.=POS(/o/) . . T I NR. =POS ( / 7/ 1 . . SLR I . =POS ( /3/ * . . 

LNR.=S.« A.=(2-Nl)/4.. 

SIGNLI/l/l .=• IF* SLRI 'LESS* 3 • THEN • I 'ELSE* -I.. 

SIGnL 1/2/1 .=(-11 'POrER'SLRI.. 

AA. . ' IF 'K'LESS* u ' Then* *BEGIN*N. = 1 . . 

HLP.=FACT(/TYPE/)*FgAM</II/1.. *IF* TEST'NOTEOUAl'E'TheN* 
phI.=HlP»<BR(0)»SIN(Th 1 ♦a(/I.O/)»CuS<TH) t ., 

• IF 'TEST 'EQUAL •*•* THEN* 'oEGIN'DPUT </K/) .=hLP® <8RU )*SIN(TH1»b(/I.1/1® 

ISO®* COSITHI ) . *OPUTH(/K/) .SHLP® IBI/R.O/I ®COS( Th* -rt (/I .(*/) «SlNl IH) ) • END* 

•ENO* 'ELSE* 'BEGIN* 
hlp.=fgam(/ii/*®fact</type/* .. 

• IF*TEST*N0TEQUAL*2* then* phi. s 

HLP»EPSALG(N.Ni.MAX-i .HR(0»*SIN( (n«A) ®T ri) »B(/I «0/)®CoSt IN»A) ®T h> .tol. 
LMAX (/I .K/l 1 . . 

• IF • TEST 'EQUAL '4* Then' 'BEGIN *OPOT(/K/) .=HLP» 

EPS4LG<N,N1«MAX-1,BR< 11 ®SIN< <N»AI*TH1 »B(/I. l/l«COSI <N*A1 ®Th1 ,TOL. 

LMAX ( /4 .K/l * ., 

UPOTH(/K/> .=HLP*EPSAlG(N.N1. MAX-1. 

160®* (n*a*®(br(o>®cos( <n*ai*tmi-b</i.o/i®sin< <n®ai«thi i .tol. 

LMAX(/S.K/1) 'ENU'.. 

• IF ' TYPE ' EQUAL ' 3 ' THEN' • BEGIN* HLP .=FG AM (/II/). . 

• IF* TEST 'EQUAL •*♦• THEN'0P0TH(/K/l ,=OPOTM(/K/* ♦ PHI/TH • END * . . 

•END* TEST SIGN K . * 

P.sPHI 

•END' 'PROCEDURE* P.. 

'REAL* 'PROCEDURE' SUM < TK I . , < REAL • TK., 

•BEGIN* • REAL ' SM., SM. = 0.. 'FOR* K.=-14 'STEP* I 'UNTIL* 48 *D0* 

170*® • BEGIN* LC.=LOC(/K/> .. SM. = SM» ( * IF * A8S (LC I 'LESS" -4 
• THEN'0'ELSE*LC»TK) 'ENU'.. S0M.=SM 'ENU'.. 
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•PROCEDURE' NEWTON2(X.Y.H,K.F.G, PROCFG. EX, EY) .< 

•VALUE' EX.EY., 'REAL* X.Y.H.K.F.G.EX.lY.. 'PROCEDURE* PROCFG.t 
' BEGIN' 'COMMENT'.. 

•REAL' XO.YO.HO.KO.FXY.GXY.FH.GH.DFDX.DGDX.DFUY.OGDY.DET.AdSH, ABSK 
•INTEGER' IT.. 'BOOLEAN' READY.. 

XO.=X.. YO. = Y.. HO.=H., KO.=K.. I T . = 0 . . RE ADY . = • FALSE '. . 

180*® ANEw. • IT.=1T»1.» OUTPUT (o). •(•✓•»•>.. 

PROCFG. . 

•IF' READY 'THEN' 

■BEGIN' OUTPUT (41 ,'("< • LAST STEP* ) • • > • I • . 'GOTO* ENDPROC 'END' 
OUTPUT (41, • ( " ( • STEP*' ' . ZZD ' ) • « IT) .. 

FXY.=F.. GXY.=G.» 

X.=XO*H«, PROCFG., FH.=F., GH.=o.» 

X.=XO-H.« PROCFG.. 

OFOX. =.S® (FH-F ) /H. , DGOX.=.S® (GH-G) /H. , 

X. =XO.. 

190®* Y.=YO»K., PROCFG.. FH.=F.. GH.=G.. 

Y. =YO-K.. PROCFG.. 

OFOY. =.5®(FH-F)/K., DG0Y.=.5®(GH-G)/K.. 

OET . =OFOX*OGOY-OGOX®DFOY . . 

H.=(GXY®OFOY-FXY»OGDY)/OET.. 

K.=(FXY*OGOX-GXY®OFOXI/D£T.. 

ABSH.=A6S(H> At)SK. = AoS(KI ., 

•IF' EX 'LESS' AdSH 'OR' EY 'Lt-SS* ABSK 'THEN' 

•BEGIN* OET.=SQRT( <H®H.K®K> /<Hl)®HO«KO®KO> > . . 

•IF' 1.0 'LESS* OET 'THEN* •BEGIN* H. =H/DET. . K.*K/DET 'END*.. 
200** X.=X0.=X0*H.. Y.=YO.=YO*K., 

•IF* AbS(H) 'LESS* EX * THEN* H.=EX.« 

•IF* ABS(K) 'LESS* EY 'THEN* K.=EY.» 

•IF* 5.5 ‘LESS* IT 'THEN* READY .*• TRUE *. . 

•END* 'ELSE* 

•BEGIN* X.=XO»H., Y.=YO*K.. READY . =• TRUE • • END* . . 

•GOTO' ANEW. , 

ENDPROC.. 

•END* NEWT0N2. . 

210** •PROCEDURE* PTPTH. , 

•BEGIN'MF* AdS(T-TV) 'GREATER* *-7 'THEN* 'BEGIN* ChAPLYGIN(T.PSIT) . , 
TV. = T 'END*.. 

FACT (/3/) . = TH. , PH12.=S0M(P<4) I .. 

PHIT.=SOM(OPOT(/K/) ) .» 

phitm.=som(dpoth(/k/> > 

OUTPUT <41, • < */,S<«0.90*»ZZUB6) • 1 • , T . -TH*RA0,PMI2. PHI T.-PMI TH> 

•END*., 

INARRAY (40.0) ., INARRAY (40 .QNl I . , I NARRAY ( 40 .LOC > . . 

220®* PI.=4»ARCTAN(1> ., RAD.=1B0/P1 . . T0L.=*-5.. 

INPUT (40. • ( • • ) * . CASE. EPSZERO. ALFA, GAMMA) .. 

OUTPUT <41 , • ( • • ( 'CASE* > • .8B.ZU./.* < 'EPSILON (0) = • ) • .0.60./. 

•(•ALFA =•)• ,0.60./. • ('GAMMA =• ) • ,0.6D* > * . 

CASE. EPSZERO, ALFA, G4MMAI . , 

•BEGIN* 'ARRAY* PARAM ( / 1 . .6/1 . . 

SK I PF (43) . , 

EOF (<.3. ALARM) .. ‘GOTO' SEARCH.. 

ALARM.. 

230®* 0UTPUT(4l. •(•//,' ('CASE UNKNOWN ON TAPE •)*•)•). . 'GOTO' EOP., 
SEARCH.. 
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GET ARRAY (4J.PARAM) . . GET ARRAY < 43. L ARRAY ) . . 

•IF' A8S (CASE-PARAM ( /3/ ) ) 'GREATER'0.5 'Ok' AUS ( EPSZERO-PARAM (/4/ > > 
•GREATER* • -8 *0R' AdS ( ALF A-PARAM 1/5/ ) ) ‘GREATER • »-8 'OR* ABSIGAMMA 
PARAM(/6/>) 'GREATER' '-8 'THEN' 'GOTO' SEARCH.. 

•END' . . 

RERIN0143) . . 

R • “ l • * I .=2. • 

GAMMA. =.5«GAMMA/P1 . . 

240<»* FACT (/l/) .*1.0. * FACT C/2/ ) . =PI . . LNEPSO.=LN<EPSZERO> . . 

FGAMI/l/) .=SORT < 1-.25®GAMMA»GAMMAI . . 

FGAMI/2/) .=-.2S*GAMMA*GAMMA/FGAM </!/) . • FGAM</3/> . = . 5**GAMMA . * 

C(/l/> .=1.25.. 'FOR* N. = 2 'STEP 1 1 'UNTIL* 100 'DO* 

•BEGIN' C</N/>.=N-2.5*1.25‘*N«<N*1>-1.0.. »FOR» K.=2 'STEP' 1 

•UNTIL' N '00* C(/N/>.=C(/N/>»<<N-2.S)/K*1.25*N*(N.1)/(K*K>-1.0> 

•END* .. 

OTAU.=.005, . DTHETA.=.5/RA0. . 

INPUT<40« •('*)'. TI, T. THCI .. Th. =- T rtC/WAU. • TV.=0.. 

T.=T*'-9.« 

25U«S_0UJPU.TX4.1.._L(.L!L.J_(2_T.AU_1- =!)-•_. 0.60-L1-L..T I 

OUTPUT (41. •(•//, SB. • ( *TAU(C) • 1 • . 12B. • ( •THETA(C> • ) • . 14b, 

• ( 'PSl • ) '.138.' ( 'OPSl/OTAu' ) • .9d. • ( • OPS 1 /GTHE T A • ) './•>•).. 

•BEGIN* 'INTEGER' K T .KH, * 

KT.=1200«TI.. 

READ. . 

GETARRAY<4i.PSITI) . . KH.=oOO/PSITI (/0.2.1/1 .. 

•IF* KH • NOTtQUAL ' KT 'THEN* 'GOTO' REAL).. 

'END* . . 

•FOR' N.=0 'STEP* i 'UNTIL* 100 'DO* 'FOR* J,=1.2.3.4.S 'UO* 

260*"> PSITI </N. J.O/I .=PSITI </N. J.O/I ♦2»TI»PSITI (/N. J. I/) . . 

NERT0N2 (TH.T.DTHETA.OTAU.PHI T.PHITH.PTRTH. »-S. '-51 . . 

•END'.. EOP. . 'ENO' 

•EOP' 


SAOOPNT 

234 

SAOOPNT 

235 

- SAOOPNT 

23b 

SAOOPNT 

237 

SAOOPNT 

238 

SAOOPNT 

239 

SAOOPNT 

240 

SAOOPNT 

241 

SAOOPNT 

242 

SAOOPNT 

243 

SAOOPNT 

244 . 

SAOOPNT 

245 

SAOOPNT 

24b 

SAOOPNT 

247 

SAOOPNT 

248 

SAOOPNT 

249 

SAOOPNT 

250 

SAOOPNT 

251 

SAOOPNT 

_252 

SAOOPNT 

253 

SADOPNT 

254 

SAOOPNT 

255 

SAOOPNT 

25b 

SAOOPNT 

257 

SAOOPNT 

258 

SADOPNT 

259 

SAOOPNT 

260 

SAOOPNT 

261 

SAOOPNT 

262 

SAOOPNT 

263 

SAOOPNT 

264 

SAOOPNT 

265 
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page 

6 

LINE 

0 

PROGRAM begins 

(MESSAGE ) 

1 



LINE 

262 

program ends 

(MESSAGE) 

1 



LINE 

262 

source dlCk ends 

(MESSAGE) 

1 




THE FOLLOWING CONTROL CARO OPTIONS AR£ ACTIVE F.l.L.X 


CORE HAP 1a,00.h 6. NORMAL CONTROL OOOlUO 032254 0300S4 002200 

---TIME- — LOAD MODE — Li--L2 T YPE USER CALL F R A LOAD- -LWA L0A0--6LNK COMN—LENG TH — 

FWA LOADER 073?**! FRA TAbLtS 071032 


-PROGRAM- 

xxalgol 

algorun 

ADDRESS- 

000340 

01134Q 


— LABELEO COMMON- 

DATA 

DATA 

000100 

000100 

ALGL600 

ALGLbtii 

ALGLB02 

ALGL603 

alglbos 

ALGLBOo 

—ENTRY— 

XXALGOL 

algorun 

0 1 37 i 2 
017127 
01 7bS«> 
025525 
026360 
027152 

ADDRESS- 

010375 
OU 340 

XXALGOL 

data 

data 

data 

data 

DATA 

data 

oooioo 

000100 

oooioo 

oooioo 

oooioo 

oooioo 

references 

alglboo 

013712 

XXAlGOL 



alglbo 1 

017127 

XXALGOL 



ALGLB02 

01 7b>6 

XXALGOL 



ALGLBO 3 

025530 

XXALGOL 



ALGLB05 

026360 

XXAlGOL 



ALGLB06 

02/152 

XXALGOL 



UNSATISFIED EXTERNALS— 




references 


channel. 60 * input. pbq.r 

CHANNEL. 61 =OUTPUT. PI 3o.PPo0.R 

channel. <**>=60 
channel .A j =6i 
CHANNEL. 43 = LU**3. a. b 
channel. End 
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ALGOL-60 PSR302.ACI 10/26/7? 

0fl«» /BEGIN/ /COMMENT Z THE COMPUTATION OF A QUAS I-FLL IPT 1C 1L AEROFOIL 

IN A CIRCULATORY TRANSONIC POTENTIAL FLOW 
BY USING LIGHTHILL S SECOND INTFGRAL OPERATOR.. 
/INTEGER/ MAX.CASE..' 

MAX.=) 00. . 

XRFGINX /REAL/ FPS7FRO.ALFA.GAMMA. T71 .TI.T.TH.LNFPSO.TII .Tl.SQTl .SOT 
p i .si . mach.cp.rr.rao.oxoth.dyoth.fxpsi . 

MU2.LA3.LAS. 

INTFG.OTI .OT.FT.PHI .TOL.7ER0.Zl APS. LC. X 1 . X?. Y 1 . Y2. TH1 . TH2.PHI1 ,PF 
ARSTH.X.Y.PHIT.PHITH. JO.P02.TP.FTN1.FTN2.X3.Y3.. 

10»» /INTEGER/ MAX IT .RECO.K, I I ,N, J.O.TYPE.Nl , INT.FMP.TINR.SLRI .LNR.R, T.RI 

atau.lowfr.upper.sig.kfn.tfl.tt.ak.tk.sidf.ath.tth.tnr.h.xy, 

CUS.ISOTA.TAUCUS.. 

*HOOLF»NZ CUSP. IS0TAU.TAUCUSP.MIJ2IN. . 

/ARRAY/ F ACT . FGAMI/l. . 3/1 .01/1.. AM/). LARRAY(/1., 2.1. .11,0. .100.1. .2/ 
CE 1/3.. 5.0. .MAX, 1..?/) . RL (/I ..3/1 .MULT (/I . .A/) .OUMI/l ..?/) . 

XF .YE.PHITE«PHITHF(/1 . . 1 2/ ) .PST T ( /G . . 1 AO. 1 . .S, 0 . . 1 /) .C ( /I . .MAX/ ( , 

PS IT I (/0..1A0.1 ..5.0..0/I . 

B I/1..2.0..1/) .PSITN1 (/0..1/1 , XP . YP ,OPOT .OPOTH (/-1A..AR/) . 

L0CX/-1-.-. 3 .I.-.2. 0 ..-1,-1 A ... AS/-)-. 0 X , 0 Y-( / .1-.-.2 . OttI / ■)-, 

?0®a AR , BB < /? • . 3/ ) . 

' CS (/I . .A/) .LA.XTI.XP1.YTI.YPI.71 </1..2/> .. 

/ INTEGFR/ /ARRAY/ CONV ( / 1 . . 3/ ) . CO . S IGNL ( / 1 . . 2/ > ,QN1 (/-1A..-1/). 
ELOCI/l ..3. 1 . .2.0. . 1 ,1..]?/) .LMAXI/1..S.1 ,.AB/> .ELMAX ( / 1 . .5, 3. .10/1 , 

/PROCEDURE/ CHAPLYG IN ( TAU.PSIT ) .« /REAL/ TAU., /ARRAY/ PSIT., 
/BEGIN/ /COMMENT/ CHAPLYG INFUNCTIONS FOR TAU LESS .05 .. 

/REAL/ TOL. H.T.DTT.ONT.OTDNT.SOMl. SOM?. S0M3. SOMA, F1K.F2K. 
PSI.OTPSI.DNPSI .OTONPS I .ST.SOTT . . 

/INTEGER/ m.k.A.B.I.O.. 

30 a* /REAL//PROCFOURE/N. ,N. = Aam. .S»R. , 

TOL.=/-ll., 

PSIT I/O. 3.0/) .=PS IT I/O. 3. 1/) . = 0. . 

PSIT (/l .3.0/) . = TA)J /POWER/ < - .*} ) . . PS! T < / 1 . 3 . 1 / ) . =- .5«T AU/POWFR/ t - 1 .5 
/FOR/ m.=o /STEP/ 1 /UNTIL/ 100 /DO/ 

/BEGIN/ A .=1 . . P.=0.. 

AA.. T.=S0MI.=1., I.=<-7®4.6»R.9)/2.« 
OTT.=SOM2.=ONT.=SOM3.=DTnNT.=SOMA.=0. . 
/IF/M/EQUAL/0/AND/B/E0UAL/0/THEN//G0TO/CC. • K.=0. . 

BR.. K.=K»1., F1K.=(-1.?S*N»(N.I).(K-1)a(N.K-3.5))/(N.K)/K«TAU.. 

AO a® /IF/ R/EOUAL/ 0 /THEN/ 

/REGIN/F?K,=1.2S/K*(-1.(K-1 )/(n*K) /POWER/2® (K»2.8) )»TAU., 
OTONT.=F1Ka(QTONT.ONT/TAIJ) .F2K»(DTT.T/TAU) .. 

0NT.=F1K«0NT.F2K«T., SOM3.=SOM3»ONT.« SOMA.=S0ma»0T0NT /end/., 
DTT.=F1K*(0TT.T/TAU) ., T.=F1K»T., S0M1 ,=S0M1 .T,. S0M2.=S0M2.DTT. . 
/IF/ ARS(T/S0M1) ZGREATFRZ tol /or/ ABS ( OTT /SOM? ) /GREATER/ TOL 
/THEN/ /GOTO/ BR., /IF/ P ZNOTEQUALZ 0 /THEN/ /GOTO/ CC . . 

/IF/ ABS (DNT/S0M3) ZGRFATERZ TOL /OR/ AR5 (OTDNT/SOMA ) ZGRFATER/ TOL 
/THEN/ /GOTO/ BB.. 

CC. .H. = TAU/POWER/ ( • 5®N ) . . PSI T < /M, I .0/) • =PS I • =H* SOM ] . , 

5 0 a a PSIT(/M.I.1/).=DTPSI. = .S“N/TAU»PSI.H*S0M2., /IE/ B/EQUAL/ 0 /THEN/ 
/BEGIN/ PSIT (7M.2.07) . =nNPS I . = ,S*LN ( TAU ) »PS I »H»S0M3 . . 

PSIT </M,2, 1/) .=0T0NPSI.=.5*LN(TAU)*DTPSI..5/TAU*PSI.HA(.5an /t au*S0m 
SOMA).. 

B . = 1 . . /GOTO/ AA /END/., 

/IF/ B/FOUAL/1 /THEN/ ZRFGIN/ A.=-l.. B.=-I, 

/IF/ M /GREATER/ 1 /THEN/ 

/RFC, IN/ K , =0 . . T.=ST. = 1.« DTT . = SOTT ,=ONT . =DTONT . = 0. « 


/GOTO/ AA ZENO/.. 



12. A2 HRS 



AIRFOIL 

2 


AIPFOIL 

3 


AIRFOIL 

4 


AIPFOIL 

s 


AIPFOIL 

6 

n • 

AIPFOIL 

7 


AIRFOIL 

8 


AIRFOIL 

9 

i ?.* 

AIRFOIL 

10 


AIRFOIL 

11 

• s • 

AIRFOIL 

12 


AIRFOIL 

13 


AIRFOIL 

1 A 


AIRFOIL 

IS 

> « 

AIRFOIL 

16 


AIRFOIL 

17 


AIRFOIL 

IB 


AIRFOIL 

19 


AIRFOIL 

20 


AIRFOIL 

21 *' 


AIRFOIL 

22 


AIRFOIL 

23 


AIRFOIL 

2A 


AIRFOIL 

25 


AIRFOIL 

26 


AIRFOIL 

27 


AIRFOIL 

28 


AIRFOIL 

29 


AIRFOIL 

30 


AIRFOIL 

31 


AIRFOIL 

32 


AIRFOIL 

33 


AIRFOIL 

3A 

• • 

AIRFOIL 

35 


AIRFOIL 

36 


AIRFOIL 

37 


AIRFOIL 

38 


AIRFOIL 

39 


AIRFOIL 

AO 


AIPFOIL 

A 1 


AIRFOIL 

A? 


AIRFOIL 

A3 


AIRFOIL 

AA 


AIRFOIL 

A5 


AIRFOIL 

A6 


AIRFOIL 

A7 


AIRFOIL 

AB 


AIRFOIL 

A9 


AIRFOIL 

50 
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51 
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SOM1 .=SOM2.=SOM3.=SOM4.=0,, 

00.. K .=K« 1 . « XIFX K XNOTEOUALX M /THEN/ 

60®* /BEGIN/ F1K.=(-1 .25»M® (M-l ) . (K-l >«<K-M-3.5I )/<K-M>/K*TAU. « 

F2K. = 1.2S/K«(-l.(«-l)/(K-M)/(K-M>®(K.2.8n*TAU XENOX XELSFX 
XBEGIN/F1K.=1.25*(1-M>/M*(M.2.8)»TAU.« 

F?K.=(3.5-2.2S/M)*TAU XENOX.. 

OTONT.=FlK*(OTONT*ONT/TAU).F2K»(OTr»T/TAU) .. ONT . =F 1 K*ONT *F?K*T • » 
DTT.=F1K» (OTT»T/TAU> .. T.=F1K»T., 

XIFX K/LESS/M/THEN//REGIN/ST.=ST.T. . SOTT.=SOTT*DTT. . 

X IFX ARS ( T/ST > XLESSX TOI. XANDX A8S ( OTT/SOTT ) XLESSX TOL 
XTHFNX XGOTOX EE XENOX., 

X IFX K XFQUALX M XTHENX X8FGIN/S0M1 . =T . , S0M2.=DNT. ,S0M3.=0TT . • 

70®* SOM4,=DTONT XENOX., X1FX K XGPFATFRX M XTHENX 

XBEGINX SOM 1 . = SOM 1 »T • , S0M3.=S0M3»0TT. , SOM? . =S0M2»0NT . . 
SOM4.=SOM4*DTONT. . 

X 1 Fx APS ( T /SOM 1 ) XGREATFRX TOL XOPX APS ( ONT /SOM? 1 /GREATER/ TOL XOPX 
ABS ( DTT /S0M3 ) XGREATF.R* TOL XOPX ABS (DTONT/SOM4) XGREATEPX TOL 
XTHFNX XGOTOX DO XENOX XELSEX XGOTOX 00.. 

EF.. 

PS IT </M, 3.0/1 .=PSI .=TAIJ/P0WER/(-.5»M>»( .5*LN(TAU>*S0M1*ST»S0M2> .. 

PS IT (/M.3.1/) .=DTPSI.=-.S«M/TAU»PSI.TAUxPOWFRX (-.B»M>* 

( .5/TAU*S0Ml«S0TT«S0M4..S*LN(TAU) OS0M3) XENOX.. 

BO** XENOX M CYCLE.. 

XENOX. , 

XREALX XPROCEOUPEX CIS(KK).. /INTEGER/ KK . , 

. XBEGINX CS</l/> .=(-TH»COS( (N-l ) » TH ) .SIN ( (N- 1 ) «TH) / (N- 1 ) ) / (N- 1 > . . 

CSI/2/) • = ( -TH*COS ( (N.l)*TH)»SINC(N.l)*TH)/<N.l))/(N.l)., 

CS 1/3/1 • = ( TH*S IN ( (N-l )*TH) .COS< (N-l )»TH) / (N-l 11 / (N- 1 ) . , 

CS(/4/> .s(TH*SIN( (N* l )*TH) »COS( (N* 1 ) *TH) / IN. 1 ) 1 / (N* 1 1 . . 

CIS.=CS(/KK/> XENOX., 

90** XREALX XPROCEOUPEX EP5ALG (N, P, INF . TN .TOL . NRES 1 . . 

XVALUEx P, INF. TOL., XREALX TN.TOL., X JNTEGFPx N.P. INF, NRES. , 
XBEGINX XREALX AUXO , AUX 1 . AUX2, RES, TOLR, TOLH. , 

X INTEGER/ M,S, I ,F,MMAX., 

XARRAYX L(/0. . INF-P/1 ,FPS(/-1 ..1/1 ., 

MMAX.=INF-P., M.= I .= 1 . , 

N.=P.. AUXO.=TN., 

N.=P*1 ., AUXl. = TN.,L(/0/l .sAl)xn.AUXl.,L</l /) . = 1 . 0/ ( AUX 1 »X-200 1 ., 
NEW L.. I.=-I., E. = (1-11/2.. EPS (/-l /) ,=L ( /M»E/1 . . M.=M»1., 

N • =N ♦ 1 . , AUX 1 . =TN. , AUXO.=L(/0/».AUX1.. AUX 1 .=1 . 0/ ( AUX 1 *X-200 1 . , 
100** XFORX S.=2 XSTFPX 1 XUNTILX M XOOX 

XBEGINX AUX2.=L(/S-2/> ♦ 1 .0/ ( AIJX 1-L (/S-l / ) .X-2001 ., 

LI/S-2/1 • = AUXO . , AUXO. = AUX 1 • , AUXl.=AUX2 

XENOX., 

L(/M-l/) .=AUXO.« L(/M/l ,=AUX1.» 

X I FX M XLESSX 3.S XTHFNX XGOTOX NEW L.. RES.=L ( /M-l -E/1 . « 
TOLP.=ABS(PES-EPS(/-I/) ) ., TOLH.= ABS ( RFS-EPS (/ 1/ ) 1 . , 

X / EX (TOLR XGRFATERX TOL XOPX TOLH XGREATFRX TOL 1 
XANOX M XLESSX mmax XTHFNX XGOTOX NEW L.« 

NRES,=N. , EPSALG • = 

110** XIFXRE.SXLESS/EPS(/ 1 / 1 XANOXEPS ( / 1 / 1 XLESSXEPS ( /-l / 1 XTHENX 

EPS ( / 1/1 XELSFX 

XIFXRESXLESSXFPS(/-1/1 XANOXEPS (/-l/l XLESSXEPS (/ 1/1 XTHENX 
EPS ( /— 1 / 1 XELSEX RES 
XENOX FPSALG., 
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/REAL/ ZPROCEOUREX RR(O)., /INTEGER/ 0.. ■ , 

/BEGIN/ /REAL/ EN. CN . FNL « EPSON . . /INTEGER/ U,V»C1»C2., 

/ARRAY/ L,HLP.£PSN(/1..2/) . FTI/0..1/)., 

/IF / KZGREATER/O/THFN/ /BEGIN/ U.=FNfi/10., V;. = WNR/15., 

1 20** FN.= (N*/-20)/POW£R/U/ (N‘ (-1 ) /POWER ZF NR * ( / I E /ENR/LE SS/ 3/THEN/. 5 
/ELSE/ 0)) /POWER/ V ZENO/ /ELSE/ EN.=1., 

CN# = /IE/' . I NT/LESS/ S /THEN/ 1 /ELSE/ C (/N/> . , ; 

/IE/ II /LESS/ 3 /THEN/ /BEGIN/ /FOR/ P I .=R . I ZDOZ •. 

L ( /R 1/ ) . =L ARRAY (/I I .LNR.N.RI/) /ENO/ /ELSE/ 

/BEGIN/ / IE / ( - 1 1 /POWER/LNR /GREATER/ 0 /THEN/ ZBEGIN/L ..( /?/ ) . = 0 . . 

L ( / 1 / ) . = / IF /LNR/EQUAL/20/THEN/ 1 ‘ 1 /N/ELSE'z - 1 / (N*N> ZENO/ /ELSF/ 
/BEGIN/ Cl .=£NTIER(S/10‘.01 > . . C2.=S-1 0*C1 . . 

FNL.=1-1/N.. EPSON. =EPSZFRO/POWFR/N.» 

EPSN ( / 1 / ) ,=EPS0N*COS (2*N»ALFA1 . . EPSN ( /2/J , =EPS0N*S IN ( 2*N« ALFA >•. , 
130»* / IE/Cl /EOUAL /3/THEN/ 

ZBEGIN/HLP </!/). =FNL* (EPSN ( /l/ 1 *LNEPSO-EPSN ( /2/) *2* ALE 4 > . « 

HLPI/2/1 .=FNL»( EPSN (/■!/) «2« ALFA »EPSN(/2/>*LNEPS0) /END/., 
ZIEZC2zE0UALX1/THENZEPSN</i/) .=EPSN(/1/).t 1 . . 
ZIF/ClZEQUAL/2/THENZZBEGIN/L(/l/> .=FNL«EPSN(/1/) . 

— -b-(-/2/)-.=FNt«EPSN(-/2/3-/ENO/ — ~ - - ■ .. : ~ 


/ELSE/ /BEGIN/ L ( / 1 / > . =HLP ( / 1 / ) ‘EPSN ( / 1 / )/ ( N»N V . . 

L </?/) .=HLP </?/> ‘EPSN(/?/)/(N»NI ZENO/., 

/IE/ C2/E0UAL/1/THFN//BEGIN/ HLP ( / 1 / I . =L </ 1 / ) . , 

L </l/> . = -L </2/) ., L ( /2/ ) ,=HLP </!/)., ./£NP/ 

140** /ENO/ ZENO/.., 

/ I EZK/NOTFOUALZ- 14/ THEN/FT </D/) .=PSIT < /N, TNR.O/) 

ZFLSEZ FT(/D/).=PSITNl(/n/)/2.. 

/EOR/RI.=R.I/DO//BEGIN/L(/RI/) .=SIGNL (/RI/)»L (/RI/) . , 

. LA(/CO(/RI/>/> .=L</«I/> ZEND/., 

ZEOR/Rl . =R . 1 ZOO/ 

B</RI,0/> .=EN»CN»FT (/0/)«PSlTI ( /N, T INR , 0/ ) *L ( /CO ( /R 1/ ) / > . . 

8R.= B(/R,D/( ZENO/., 

/REAL/ /PROCEDURE/ P (TEST 1 ... /VALUE/TEST . . / INTFGFR/TEST . . 

ISO** /BEGIN/ /REAL/ A, HLP.. / INTEGFR/J . P 1 0 ../ INTEGER// ARRAY/POS (/ 1 . .H/ >. . 

ZIE/K/EOUAL/0/THEN//GOTO/ AA.. S.=/IFZKZGRFATERZ0ZTHENZQ(/K/> /ELSE/ 

0 (/ONI t/K/)/).t P10. =1000000000.. CO ( / 1 / > . =/ IF/S/LESS/O /THFN/2/ELSEZ 1 . » 
C0(/2/) ,=3-C0(/l/) ., S • =A0S ( S ) • . 

/EOP/J.=1/STEP/1/UNTIL/H/DO/ 

ZBEGIN/POS (/J/> .=S/DIV/P10. ♦ S. =S-P 1 0»POS ( / J/> . , P 1 0 . = (P 1 0 ♦ 1 ) ZDI VZ1 0 
ZEND/.., 

II.=POS</l/> . ,TYPF.=P0S(/2/> ..Nl ,=P0S(/3/) .. INT .=POS ( /4/ > . , 

ENR.=POS (/5/> . . TNR.=P0S</6/> . .T INR.sPOS (/?/). ,SLRJ .=POS (/«/) .. 

LNR . =S . . A.=(2-N1 1/4., 

1 60** SIGNU/l/) , = /IF/ SLRI /LESS* 3 /THEN/ 1. /ELSE/ -1.. 
SIGNL(/2/).=(-l)/P0WER/SLRI.. 
aa.. ziezk/less/o/then//reginzn.=i . , 

HLP, =FACT </TYPE/)*F GAM ( /l 1/ I ., ZIEZ TEST/NOTEOUAL/2/THENZ 
PHI.=HLP*(BR(0)*SIN<TH)‘R(/I,0/)»COS(TH»)., 

/IE/TEST /NO TL ESS /2* THEN/ /BEGIN/ TP.=TH., 

XP(/K/) .=HLP«FT».5»(-.S*C0S(2»TH)*(SR< 1 >.-.5*HR(0)/T>‘ 

TH* (B (/I , 1/1 • ,S»B (/I ,0/) /T) ‘ .5®SIN (2»TH) » (B I / I > 1 / > - .S* 

B(/I »0/)/T) I-HLP*FTN1»LA (/R/l ., 

YP(/K/) .=‘HLP°(/IE/K/E0UAL/-14/THEN/ETN2«.5 /ELSE/ ETN1 ) * 

170** LA(/I/)‘HLP»ET«.5*(-.S»COS(2»TH)»(B(/I.1/>-.S*P(/I.O/)/T)‘TH« 

(B(/R. I/) ».S»B (/R.O/>/TI-.5»SIN(2*THI»(B</R.l/)-.5»0(/R.O/>/T> I ZENO 
/IE/TEST/EQUAL/4/THEN//BEGIN/0PDT (/K/) ,=HLP« ( R ( /R‘ 1 / > *S IN ( TH) *fl(/I. 1 
COS (TH) ) . .DPOTHI/K/) .=HLP*(B(/R.O/)»COS(TH)-B(/I.O/)«SIN(TH) ) ZEND/ 


12.42 HRS 
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IPO** 


ion** 


200 ** 


210 ** 


220 ** 


230** 


PENQ* PELSFF /BEGIN* A IF A K AEOUALA 0 ATHENA 

ABFGINA Til • • Tl.=l-T.. SOT 1 . =SQRT (T 1 > . . SOT II .aSORT (Til).. 
INTEG.aSOTl* <T 1* ( .2*T1M/3)»1) ♦ «5*LN ( ABS ((S0Tl-l)/( SOT 1 . 1 ) ) I- 
15QT I1*(TI1*(.2*TI1*1/3>*11« .5*LN ( A8S< (SOT 1 1 -1 ) / (SOT1 l»lllll.« 

OT I .a2*TI*T I 1 /POWER* 1-2.51 • * OT ,=2*T*T 1/POWER* 1-2.51 . . 

PHI .a-FGAH 1 /3/ 1 • < INTE6-?*T I /OT II . . 

XP 1/K/l. a-FT*FGAM 1/3/1 *S IN 1THI/QT.. 

YP 1 /K/ » ,aFT*FGAM ( / 3/ ) *COS ( TH > /OT . , 

OPOTl/K/l .a-FGAMl/3/l/QT.. OPOTH1/K/1 .oO /END* 

/ELSE* APEGINA HLP.aFGAM(/H/»*FAcT(/TYPE/l.» 

/IF/TEST ANOTEOUAL A2ATHFNAPHI .a 

MLP*EPSALG1N*N!«HAX-1.BR«0)*SINMN*A»*TH1 ♦«(/!, 0/1 *COSIlN*A»*TH».TOLa 
LH»X(/l,K/n.. . 

/IF/TEST /EOUAL/4/THFN//BFGIN/OPOTI/K/).aHLP* 

EPSALGIN.N1.HAX-1,BR11>*S1N1 1N«4)*TH>.R1/1.1/I*C0S< 1N»A)*TH).T0L. 

LMAX1/4.K/I I .. 

OPOTH 1/K/l .SHLP*EPSALG1N.N1.MAX-1. 

tN*AI*tRRtOI*COSt tN*A)*TH|-Bt/I.O/|*StNt <N«AI *TH| ) .TOL. 

LMAXt/5 .*/>> AENOA.. 

AIFATYPE AeOUALA3ATMENAABFGINAHLP.aFGAM(/I I/| 
/IF/TFST*EQUAL*4/THEN*QP0TH</K/> ,=UP0TH1/K/I *PH!/TH AENOA.. 

AIFA TEST ANOTLESSA ?. ATHENA ABFGINA A IFF TYPE ANOTGREATFRA 2 ATHENA 
/8EGIN/XP 1/K/l . h. 5*FT*HLP*FPSALG(N.N1.HAX-1.C0SI |N-|.AI*THI/|N-l*At* 
l-8Pll)-.S*lN.A>/T*RH10n»C0S< (N» 1 »A I «TH> / (N»l .A) * <-B</R. l/| ♦ .4* IN. At 
/T*R1/R.0/1 1*SINUN-1*AI *THI/<N-1.AI* <81/1,1/1.. 5* 1N*A|/T*B1/I.0/II* 
SlNllN.l.Al*THI/<N.l.A)*(B</I.l/)-«5*<N.41/T*BI/I»0/ll»T0L» 

LHAX 1/2.K/I).. 

YPl/K/l.a.5*FT*HLP*EPSAL0<N.Nl.HAX-l. 

SIN ( IN-1 »A1 *THI / IN-1 »A 1 • (BR 1 1 1 « .S* 1N« Al /T* BR(0> >• 
SINMN.1*A)*TH>/(N.1«AI*«-B</P,1/)..5*(N.AI/T*B(/R.0/>I» 

COS( <N-1«AI*THI/IN-1*A)*(B(/I.1/)..5*(N«A)/T*BC/I.0/M* 

COS! <N.l«Al*THI/<N«l«AI*l-8</T.l/l..S*lN»AI/T*Bt/l.0/n.T0L. 

LHAX 1/3.K/I I AENOA 

AFLSEA ABFGINA XPl/K/l .n.S*FT*HLP*EPSAL6<N.2.RAK-l. 
CIS<1I*18R11)..5«N*RR<0I/T> • 

CS (/?/)* <B (/R» 1 / ) - .5*N*m/P, 0/ 1 /T I » 

CS 1/3/1 • <fl </!• l/>». 5*N*R</I. 0/1 /Tl« 
CSl/4/l*<R</I.l/l-.S*N*81/I.0/l/TI- 

.5* fl</R.O/>/T*<SINUN-ll*TNI/<N-ll-SINHN.l>*TMI/lN»lll- 
• 5*R l/I .0/1 /T* 1COS 1<N-1I*TMI/(N-1I -COS <1N.11*THI/IN»1II . TOL . 
LHAM/2.K/1).. 

YPl/K/l .a.5*FT*HLP*EPSALG<N.2.HAX-l, 

CIS 1 31 * 1BR < 1 1 ♦ .5*N*BB 10 1 /T 1 • 

CS 1/4/1* IB t/R. 1/1 -.S*N*8</R. 0/1 /TfL 
CS</1/>*H)</I.1/|..5*N*R</I,0/1/T>» 

CS </2/l • 10 1/ I « 1 / > - .5*N*H (/I • 0/ 1 /Tl - 

•5*fil/R.0/l/T*( COS 1 (N-l 1*TH)/1N-1 I ♦C0S< 1N.1 1*TH1/1N.1 1 1 ♦ 
.5*8</t.0/)/T*lSIN< <N-1I*TH1/<N-1> «SIN< <N.H*TM1/(N«1II.T0L. 
LMAX(/3.K/I> AENOA 

AENOA AFNOA TEST K EQUAL 0.. AENOA TEST SIGN K.. 

P.aA IFATFSTAE0UALA2ATMFNAXP ( /K/ ) AELSEAPH I AENDAPROCEOUBE P.» 

AREALA APROCEOUREA SOH (J.SIOE. TK I . ,/RE AL/TK.,/ INTEGER* J.SIOE.. 
ABFGINA ARFALA SM.. SM.=0., AFORA K.a-14 ASTEPA l AUNTILA 4fl AOOA 
ABFGINA LC .=LOC 1/J.SIDF.SIG.K/}.. SN.=SH. I AIF AAHS <LC ) ALFSSAA-4 
ATHENA 0 AFLSEA LC*tK ) . . 

AFNOA.. 

SOH.aSH 
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ZENO/ SOM.. ■ -• '■ '■ 

/PROCFDUREZ FTCONV., 

Z9EGINZFT.=SQRT(TI/T>*?»T/(1-T>ZP0WERZ2.5.. 

ZFORZD.=0.1/DOZPSITN1 </0/> .= 

(1-1 . S«0 )* T /POWER/ (-. 5-0 ).1.2S»PS IT 1/1,1 ,0/) . , 

FTN1 .=2.S«TI®S0RT (T>»( (1-T1 )✓( l'-T) ) /POWER Z? .5® ( PS I T ( / 1 , 2 , 1 / ) ♦ ,5/T* 

(PSTT (/I • 1.0/) ♦PSIT (/l .2,0/)) ) .. 

?40«* FTN?. = 3.8®ETNl-6»Tl , Ml-Tt>zPOWEBZ?.S«LN(T) 

J.=ZIFz T ZNOTGREATER/ TZ1 /THEN/ 1 /ELSE / / IF/ T ZNOTGRFATFRZ TI /THEN/ 

2 /ELSE/ 3., 

'ZENO / FTCONV.. 

ZPROCEOUREZ COMPC.. 

/BEGIN/ /REAL/ FN.V6.VTI.. 

/ARRAY/ C1.C1ST.TLNZ1.TEQM1. TEPM2 .TFRM3(/1..2/).. 

/PROCEOIJRE/COMUDT (A.H.C.T) . . /INTEGER/ T.» ZARPAYZ A.R.C. • 

/BEG IN/ZPE AL /MOO. , /ARRAY ZP.Q (/l . .2/) . , 

P50»* P(/l/) . = A(/ 1/) .. P(/2/> . = A(/2/) ., 0 ( / 1 / ) .=B (/l/_)_... _Q(/2/-)-.-B(/-2/-l.. . 

MOO . = / I F ZT/GRE ATER/O/THFN/1 *£LSFZ 1 /(Q(/l/)*Q(/l/).Q(/2/)*Q(/2/) 1 
C(/!/).=(P(/l/)*0(/l/> -T»P(/2/) *Q</?/> >»MOO.. 

C(/2/) .= (T*P</ 1/1*01/2/) ♦P(/2/)»Q(/l/> >*M0O. . 

ZEND/.. 

. ZPROCEOUREZ COPOWfc R < A . P. P ) . . /V ALUE/P . . /RE AL/P . . / APRA Y/A . B . . 
ZBEGINZ/REAL/MOO.ARC. . MOO. = ( A ( / 1 / ) * A ( / 1 / > * A 1/2/1 • A (/2/> ) /POWER/ ( .5»P> .. 
ARC . = ARCTAN(A (/?/) /A (/!/) ) . « 

ARC. = /IF/A(/1/) ZLFSS/O/T HEN/P® (ARC .PI) ZELSFZP«AMC. • 

Bl/l/l ,=MOO«COS(ARC) .. B(/2/> . =MOO«S IN ( ARC ) .. ZEND/.. 

260«* V6. = SQRT(6) .. SI . = SORT ( ( l-6->TI) / < 1 -T I ) ) .. VT I . =SQRT ( T I ) . . 

. SI .=-;s<*V6«LN< 1 .4».4*V6) ♦•S 0 LN(.8)..5°V6®LN((V6.SI)/(V6-SI)> 

-.5*LN( <l*SI)/< 1-SI ) ) ., 

MULT ( / 1 / ) • = MULT ( /2/ ) .=MI)LT(/3/) .=MULT(/4/) . = 1.. 

INPUT (40./ (//) Z.T .TH) . . 

SI0.*'0.5*(1*SIGN(TH))., SI0E. = 2-SIG. . TH . =-TH * . 

: : INPUT (40 ./(//)/ .MU? ). * / IF/ABS (MI.I2) /LESS/ Z-6/THENZ 

/BEGIN/ MU2IN.=/FALSEZ. . MU?.=RR < /2/I /AH {/?/> ZEND//ELSE/MU2IN .=/TRUEZ . » 
TH.=TH/RAD., FACT ( /3/ 1 . =TH . , 

COPOWER (Z1 ...5.LA) . ,CE</3.0.1/> ,=-LA(/l/> . ,CF ( /3. 0 . 2/ ) . =L A ( /2/ ) . , 

270®* ZF0RZN.=1ZSTFP/1ZUNTIL/MAXZ00ZZREGINZC0MU0I (LA.Zl.LA.-l ) .. 

FN.=(N-1 .5)/N. ,LA(/l/> .=EN*LA(/1/) . , CE < /3 »N. 1 / ) . s-L A ( /I / > . . 

CEI/3.N,?/) ,=LA(/?/) . -FN*l A ( /2/ ) ZENO/.. 

Cl (/l/> .=-CE(/3,l.l/>. . Cl (/?/) .=CE 1/3.1 .2/) ..LA (/l/> .=0. .LA 1/2/ ) . = 1 . , 
/FOR/N.=0/STEP/1/UNTIL/MAX/DO//BEGINZ 

COMIJDI (LA.Z1.LA.1) . ,FN.= (N-."S)/(N»1 ) . . CE ( /4.N, 1 /) . =LA ( / 1/ ) . =FN»L A ( / I / ) . . 
CF(/4.N,2/) ,=LA(/?/) ,=FN*LA(/H/J ZENO/,. 

CO D OWER(71,1 . 5 ,L A ) . ,LA (/!/) . =2/3°LA < / 1 /> ..LAI/?/) .=2/3*LA (/2/) .. 

CIST ( / 1 / ) .=LA (/l/l . , CIST (/?/). =L A (/?/) • • 

/FOP ZN. = ?/STEP/1 /UNTIL /MAX ZOO/ZBEGI N/COMUO I(LA,Z1.LA. I ) . . 

280®* FN.= (N-l ) / <N» .5) . . L 4 < / 1 / > . =Fn«L A ( / 1 / ) . » L 4 ( /2/ > . =FN*L A ( /2/ > . » 

CE (/G.N. 1/) ,=-LA(/l/>*N*C(/N/) . . CE (/5.N.2/) .=-LA(/2/)®N®C(/N/> ZEND/.. 
TLNZl ( / 1 / ) .=1*SI»LN(4»ZIARS) ., 

TLNZ1 (/?/) . = ARCTAN <Z1 (/2/1/Z1 (/l/l ) .. 

’ COMUOIICI. TLNZl. TLNZl. 1).. FXPS I . =EXP (S I ) . . ZFOR/R I . = 1 . 2ZD0Z 
ZBEGINZTERM1 l/RI/l .=VTI/ pxpSI»TLNZ1 (/RI/) .. 

TERM? (/R I/) ,=VTI»EXPSI®1 .25®C1ST (/M I / ) . . 

TERM3(/RI/) .=PI»C1 (/Rl/)/EXPSI*VTI ZENO/., 

XT I (/?/) . = TERM1 (/l/) .TERM? ( / \ / ) ., XT I </!/). =-TERMl ( /?/ ) -TFRM2 ( /?/ ) . , 

YTI (/?/) .=TERM1 (/2/1-TFRM? (/?/) . , YT I (/!/) .=TERM] (/I /) -TERM? </!/). . 
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2 <50®* XPt'(/2/l ,=TERM3(/2/l ., XPl (/l/I .=-TERM3 (/1/t ., 

YPI (/2/) . =TERM3 ( / 1 / ) . . YPI ( / 1 / > . =T£RM3 < /2/ 1 . . 

XENIX COMPC.. 

XREALXXPROCFnUREX Pp (TEST ) . < XVALUEX TEST.. XINTEGERX TEST., 

XREGINX XREALX PHI.E., XINtEGERX TEL .CNR , JEK ,EK . A .M 1 . , xROOLEANX X Y.. 
XRE ALXXPROCEDUWEX 8P(01.. XINTEGERX 0., 

XBFGINXXARRAYXC12(/1 ..?/) ..C12(/l/l . = 0. . Cl 2 1/2/1 . = I . . X IEXNXEQUALX-1 
XTHFNXXBFGINXH( /R.0/1 .=PSIT</0.4,O/l*FXP(-.S®SIl®C12(/CO(/l/>/l .» 

H < / I .0/1 .=PSIT(/0.4,0/)®EXP(-.5«Sll*TFK®C12(/CO(/2/l/IXFNDX XELSEX 
300®® XBFGINX fll/R.D/l .=PSIT(/N.TNR.D/)®EXP( (N«Ml »F)®SI 1 ., 

0(/I,O/l . = R(/fl,0/l»TEK®CE (/CNR. N, CO 1/2/1 /) .. 

«(/R,0/l .=B(/R,D/1*CE (/CNR, N. CO 1/1/1 /) XENOX., 

BR . =B ( /R ,0/ 1 XENOX., 

XY.=TFSTXGRFATERX1XAN0XTFSTXLESSX5., TEL .=5® ( RT-1 1 .. CNR.=K-TEL.« 
C0(/1/1 .=3-RI.. CO ( /2/ 1 . =R I . , TFK.=?»RI-3. , XlEXKXEQUALXl ‘TFLXTHENX 
XPEGINXPHI.=TFK®CE(/3.0.C0(/2/l/l .. 

XF (/K/l .=YE (/K/l ,=PHITE (/K/l .=PH I THE t /*/ 1 . = 0 XENOX., 
/IFXK/ r OUALX2*TELXTHENXXRFGINXXFORXO.=0,lXOOXXREGINX 
B ( /P .0/1 .=CE(/3,l,C0(/l/i/)«PSIT(/l.l,0/)»EXP(-SIl ., 

310*® B ( / 1 » 0/ 1 . = TF.K®CF ( / 3» 1 »C0 ( /2/ 1/ 1 ®PSIT ( / I . 1 .0/1 *EXP (-S 1 1 XENOX.. 
PhI.=R(/R,0/l*S!N(TH)®B(/l,0/)*COSITH)., XIFXXYXTHFNXXRFG1NX 
XF (/K/l . = .S«FT»(-.S®C0S(2®TH)»(R(/R, 1/1 -.5®B (/R.O/l/Tl *TH® (B(/!.l/l * 
,5®H(/I.0/)/Tl ‘.5*SIN(?*TH)*(R(/I, 1 /i - .5»R (/I . 0/1 /T 1 1-FTN1/ 

(FXP (SI )«2.S«SQRT (TI1»( 1-TI 1 XP0WERX2 . S 1 ®CE ( /3. 1 , CO ( / 1/1 / 1 .. 

YE (/K/l . = .S»FT*(-.S®C0S(2»T'<I® (B(/I. 1/I-.S®H(/I,0/1/T) *TH® (B(/R. 1/1 * 
.5*H(/R,0/1/T1-.5®SIN(2®TH1®(R(/R.1/1-.S®R(/R,0/1/T) >»FTN1/ 
<FXP(SI)*2.5*SQRT(TIl*<l-TIlXP0WERX2.S)*TEK*CE(/3,l,C0(/2/l/l 
XENOX. . XIFXTFSTXGREATFR*3XTHFNXXHEGINXPHJTF(/K/I .= 
0(/R.l/l®SIN(THl*B(/I,l/l®COS(TH) ., 

■ 320** PHITHf (/K/l .=R(/R,0/)®COS(TH)-R(/I,0/)®SIN(TH1 XENOXXENOX . . 

XIFXKXGREATERX2.TELxaN 0XKXLESSX6*TELXTHENXXRFG1NXFK.=ARS(CNR-41 ., 
F.=(1-FK)/2.,A.=3*FK-1.. M] .=CN9®(9-CNR>-19., TNP ,=5-4®FK . , 
XIFXTESTXN0TEQUALX2XTHENXPHI .=EPSALG(N,A.MAX-1 ,BR(01®STN( (N.F1®THI . 
8(/I.0/l*C0S( (N.E1»TH) ,T0L.ELHAX(/1,K/1 1 •« XIFX XY XTHFNX XREGINX 
XE. (/K/l. = .S*ET*FPSALG(N.A. MAX-1 ,COS( <N«F- 1 1 *TH1 / (N»F-1 1 • (-BR(ll-.5® 

(N*E 1 /T*RR (Oil »COS( ( N *F ♦ 1 I ® TH1 / ( N.F. 1 1 * (-B ( /P, 1 / ) ♦ .5® ( N«F 1 /T«B ( /R.0/1 I 
,S IN ( (N®F-ll*THl/(N®F-ll®(H(/I.l/l®.S*(N®FI/T*R(/I.O/l 1 
.S1N( (N.F.l 1»TH1/ (N.F‘11® (B(/1 .1/1-. 5® (N®F»/T*B(/I .0/1 1 ,TOL. 
ELMAX(/2.K/1 1 ., 

330*® YF (/K/l .=.5®FT»EPSALG(N,A,MAX-1,SIN ( (N»F- 1 > ®TH) / (N.F-1 1 ® (BR ( 1 1 ♦ .5® 

(N«E1/T®BR(01 1 »SIN( (N*F.l )*THl/(N.f ,1 1 »(-B(/R, 1/1 *.5® (N.FI /T®B(/R,0/1 1 
.COS ( (N.F-1 )*TH1/ (N.F-1 1«<B(/I. 1/1 *.5* (N®Fl/T*R(/I.O/> >♦ 

COS ( (N®F®1 1«TH1/(N®F®11® (-0(/I,l/l ♦.5*<N®FI/T®B(/I,0/1 1 ,TOL. 
ELMAX(/3.K/1 1 XENOX., 

XIFXTESTXGREATERX3XTHENXXBEGINXPHITE </K/ 1 ,=EPSALG (N. A. MAX-1 ,BR(1 1 

*SIN( (N®FI®TH1 ♦B(/I,1/1«C0S( (N®F1«TH1 . TOL .ELMAX ( /4,K/ 1 1 

PHI THE (/K/l .=EPSALG(N.A,MAX-1, (N»F 1 ® (BR ( 0 1 ®COS ( ( N«F I ®T HI -B (/ 1 , 0/ 1 ® 

SIN( (N*F1®TH1 1 .TOL. ELMAX (/5, K/l 1 XENOX XENOX., 

XIEXKXFOUALX11XTHFNXx 8EGINXXFORXO.=0,1XOOXB(/R,D/1 .=-PSIT(/2, 1.0/1* 
140®* EXP (-?*SI 1 . , PHI.=B(/R,P/1»SIN(?«TH) ., XIFX XY XTHFNX XREGINX 
XE 1/11/1 .=FT»<C0S<THl/2*<-B</H,l/)-H</P.0/l/Tl.C0S(3»THI/6® 

(-B (/R.l/1 »B(/R.0/1/T) 1 . ,YE(/11/1 . =FT* ( S IN ( TH) /2* (R (/R. 1 /I *B (/R, 0/1 /T 1 ♦ 
SIN(3*THl/6»(-B(/R. 1/1 »B(/R,0/1/T1 I XENOX., 

XIFXTESTXGREATERX3XTHENXXBEGINXPHITE 1/11/1 .=B(/R,1/1®STN(2*THI .. 
PHITHE(/11/I .=2®R(/P,0/1»COS(2*THI XENQx XENOX., 
XIFXKXEOUALX12XTHENXX0EGINXXFORxo.=O . 1 xoox 

B (/R.0/1 .=PSIT(/2,1 ,0/ 1 ®EXP <-2®S 1 1 ., PHI. = R( /R.0/1® C0S(?®TH1 ., 
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EIF*XYXTHENXABEGINXXE(/12/) . = FT» < S IN ( TH ) /2» ( B ( /R . 1 / ) « 8 ( /R , 0/ > /T ) ♦ 

SIN <3*TH) /6* (B(/R»l/)-B(/R,0/)/T) ) . . YE (/12/> . =FT» ( COS ( TH ) /2» 

350** (B(/R»l/)*B(/R»0/)/T> ♦COS(3*>TH) /6* ( -R < /P . 1 / ) .B(/R,0/)/T>> EENO* . • 
EIF*TEST*GREATERE3ETHENE*BFGINEPHITE(/12/> .=B(/R, l/)*COS(2*TH> . , 
PHITHE (/ 1 2/ 1 .=-2*B(/R,0/)*SIN(2*TH) EENDE EENDE . < 
PE.=EIFATFSTaFQUAL*2ETHFNEXE (/K/) XELSFEPHI EENDE. . 

ARE AL * APROCEOURF.E FSOM (R I , TERM ) . , aRF AL A TERM., * INTEGER* Rl.. 

ARFGINA areal* SOM.. AlNTEGER* LOCEL.KR.KE. . SOM . =0 , , 

KR.=5*RI-4., KE.=*IFARI*LESS*3*THFN*KB»4*ELSE*11.. 
*IF*RT*E0 i JAL*4ATHEN**BFGIN*KB. = 12.,KE. = 12 eeno*., 

AF0RAK.=KBESTFPa1*UNT ILAKFaDOEaRFG IN*LOCEL . =EL0C ( / J, S IDF * S !G . K/ ) . , 
360»* EIF* LOCFL aNOTF.QUALAOaTHEN* SOM. = SOM.MULT </RI/)«LOCF_L*TERM eEND*., 
ESOM • = SOM EEND*.. 

ERE AL* EPROCEOURE* CORR(TFRM).. EREAL* TERM., ABEGINA AREALA RESULT., 
RFSULT.aO. . EIFACUSPatHFNAAFOReRI .=1 .2.3,4*00* 

RESULT. =RESULT»f SOM (RI .TERM) . , COPR.=RFSULT *ENO*.. 


EPROCFOUPE* T APE (T.AR) . , EVALUE* T., areal* T.. EARRAYE ar.,- 

EPEGINA EINTEGER* KT.KAR.. 

KT. = 1?00»T. . 

370** REAP . . GFTAHRAY (43. AR) .. K AR .=600/ AR ( /0 .2. I / > . . 

AJFE KAR ENOTEOUALE KT ATHENE AGOTO* READ 
EENO*.. 

INARRAY (40,0) . , inarray (40, ONI ). . INARRAY (40, LOC) . . 

AFORE J. = 1 ,2,3 EOOE AFORE SI0F.=I,2 EDOE *EOR* S.=0,1 EDOE 

AFORE K.= -11 .-10, -9.-6.-5, -4, -1,31, 34, 35, 36, 37,40.41*42, 43, 46.47, 48 EDOE 

LOC(/j.sine,s,K/i.=o., 

INARRAY(40,FL0C) .. P I . =3. 14156265359. . RAO . = 1 80/P I . , 

INPUT (40.E <*A) a, CASE, EPSZERO. ALFA, GAMMA, Z 1 (/l/) .Z1 </?/> .L43.L4S) . . 

3«0»* Z1APS.=S0RT(Z1 (/l/) EPOWERE2.Z1 (/2/I APO'EERE?) . . 

AF.ORA J. = 1,2,3 EDOE *FOR* SI OF. = 1,2 EDOE AFORE S. = 0,1 EDOE 
EBEGINA 

LOCf/J.SlOE.S, 43/1. =LOC(/J. SIDE. S.43/1.L43.. 

LOC (/J.SIOE.S. 45/1 ,=LOC ( /J. SIDE .S, 45/ 1 *L4S. , 

EENDA. , 

ABEGINA AARRAYE PARAM ( / 1 . . 6/ 1 . , 

SKIPF (43) . , 

EOF(43. ALARM) ., EGOTOE SF ARCH . , 

390»* ALARM.. 

OUTPUT (41 ,*(*//, *(ECASF UNKNOWN ON T APE* ) E* ) E ) . . EGOTOE FOP.. 

SFAPCH.. 

GFTARRAY (43.PARAM) ., C,F T ARR AY ( 4 3 , L ARR A Y ) . . 

EIFE ABS(CASE-PARAM(/3/) XGRFATFREO.S EORE ABS(FPSZERO-PARAM(/4/) ) 
AGRFATFR* E-B EORE APS ( ALFA-PARAM (/S/) ) EGREATERE e-r AOR* ABSIGAMMA- 
PARAMI/6/)) AGRFATFRA a-r ETHFNE AGOTO* SEARCH.. 

*FND* • , 

RPWINDI43)., RFCO.=0 • • GAMMA ,=GAMMa/ (2«P I ) . , 

FGAM (/ 1 / ) ,=SORT ( 1 - . ?S*GAMMA*GAMM A ) .. FGAM(/?/) .=- . 2S«GAMMA«GAMMA/ 

400** FGAM ( / l / ) ., - FGAM(/3/) . = .S*r,AMMA., C (/ 1 / ) . = 1 . 25. , 
aFOR*N.=?*STFP*1*UNT ILAMAXADO* 

EBEGINA r.{/N/> .=N-?.5»1 .25»N* (N» 1 ) - 1 . . AFOREK . = ?*STFPE 1 AUNT ILENADOE 
C ( /N/) ,=C(/N/) « ( (N-2.S) /K» 1 • ?S*N* ( N* 1 ) / (K«K)-1 ) AFNDE. , 

INPUT (40 , E ( EE ) E.CUS.TOl .max IT) .. CUSP . =CUS= 1 . . 
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INPUT(40. /(//)/, TI) .. 

/BEGIN/ /COMMENT/ SEPAL ING VAN TAU(ZFTAl)., 

/PEAL/ V6.LNZ1.UTI.A1.A2. El, F2.» 

/PEAL/ /PROCEDURE/ U(TAU).. /VALUE/ TAU., /REAL/ TAIJ., 

410»« /BEGIN/ /REAL/ P.RFS., 

V6.=SQRT (6) .. P.=SORT( < 1 -6* T AU) / ( 1 -T AU ) ) . . 

RFS.=LN((1»P)/U-P)).. P . =P/V6 . « RES*= RES-V6«LN( (l.P)/(l-P) > .. 
U.=.S«QES /END/., 

V6.=SQRT(6> .. LNZ1 ,=LN(71A8S) . , UTI.=U(TI).. 
A1.=TI.« F1./-LNZ1., A?.=TZ1.=TI -.005., 

REPEAT.. F2.=UTI-LNZ1-U(TZI> ., 

/IF / ABSIA2-A1) /LESS/ /-6 /THEN/ /GOTO/ U!T., 

TZ1 . = (A1*F2-A2*F1)/(F2-F1 ) ., 

/IF/ ABS(F2/F1) /LESS/ l /THEN/ /BEGIN/ Al.=A2., F1.=F? /END/.. 

420oo A2.=T71 . ♦ /GOTO/ REPEAT • . 

U I T • • ZENO/., 

/FOR/S IG. =0. l/DO//FOR/J.=l .2, 3/0O//E0R/SIDF.=l .2/00/ 

INPUT (40./(//)/.DX (/J.SIDE.SIG/) .DT (/J.SIDF.SIG/) ) .. 

OUTPUT (41 ,/ (Z«,46S,/.41S,/,41S.////) /. 

/(/THE COMPUTATION OF A OllASt-FLL IPI ICAL AEROFOIL/)/. 

/(/IN A CIRCULATORY TRANSONIC POTENTIAL FLOW/)/, 

/(/«Y USING LIC.HTHILLS 2ND INTEGRAL OPERATOR/)/).. 


430»o OUTPUT (41 ,/ (/I 1S,0.403R,5S, «0.60 38 ,6S . 0 . 6D . // . 75 . 0 .4D3B . 1 1 S ,D.4D. /// > /. 
/( /EPSILON (0)=/) Z.EPSZER0.Z<Z4LEA=/)/,ALFA,Z(/GAMMA=/)Z,?op|«GAMMA, 
Z(/TAU( 1 )=/)/. 1 1 ./(/TAU(ZETAl)=/)/.TZl ) .. 

OUTPUT (41 ./ (// (/CASE/)/.ZZDBB./(/M-INF =/>/. ZO. 40 .////)/ . 
CASF,S0RT(S*TI/(1-TI) ) ) ., 

OUTPUT (41 ,/(//( /LAMBDA 1 = / ) / , .Z0.004R , / ( ZL AMBDA2 =/)/,. Z0.0D4B .////)/ . 
L43.L4S) . . 

R • = 1 • , I . =2., LOWER. =1 ..UPPER. =2.. FACT (/!/) . =1 . ,F ACT ( /2/) ,=PI . . 

P02.=FACT ( /?/)». 5.. LNFPSO.=LN(EPSZERO) . . 

REWIND (43 ) .. T APE (TI.PSIT) ., 

440»» /FOR/N. sO/STEP/ 1 /UNTIL/ MAX /DO/ /FOR/ J. =1.2. 3. 4. 5 /DO/ 

PSITI (/N. J.O/J • =PS I T (/N.J.O/) *2»T 1*PSIT ( /N.J. 1/) . , 

REWIND ( 43 ) • . RECO . =0 . . JP.=-1., 

/FOR/ N . =2. 3 ZOO/ 

/BEGIN/ ABI/N/) .=1/(N-1 >oPSITI (/N.3.0/) o(FG4M(/l /)«LARRAY(/1 ,1 .N, 1/) ♦ 
EGAM(/P/)«LARRAY(/2.1.N,l/)-EGAM(/3/)»(l-l/N)»EPSZER0/P0WFR/No 
SIN(2»N*ALFA) ) ., 

AH (/N/l ,=AB (/N/> *L43»P I*FGAM </3/ )»c(/N/> »PSITI C/N. 1 . 0 /) .. 

BB (/N/) . = -l/(N-l l«PSITI (/N,3.0/)o <FGAM</1/) «L ARRAY (/l . 1.N.2/) ♦ 

FGAM(/2/)oLARRAY(/2,l ,N.2/)-EGAM(/3/)*(l-l/N)o (1-EPSZERO/POWER/No 
4S0oo C0S(2ON»ALFA) ) ) ., 

BB (/N/l .=88 (/N/) .L4S»EGAM(/3/)OC(/N/) "PSITI (/N.2,0/) ., 

ZENO/., 

/IF/ CUSP ZTHFNZ 
/BEGIN/ 

COMPC.. CHAPLYGIN(T.PSIT) . . ETCONV . . 
J.=/IE/T/GPEATER/TZ1*.00001/THEN/2/EL5E/1. . 

RL (/l/) .=-SOM( 1 ,2.P(4) ) . , 

RL(/2/).=-S0M(l,2,0PDT(/K/) ) .. 

RL (/3/) .=-SOM ( I ,2,DPDTH(/K/) ) . . 

460»o ZREGIN/ /REAL/ DET .M33.M23.M13. A1 .A2.A3.B1 .82,84., 

/ARRAY/ P.OI/l . .3/) ,M (/I . .3. 1 . .4/) . , 

ZFOP/BT. =1.2. 3. 4/D0//8EGIN/M(/l, RI/) .=ESOM (RI ,PE ( S ))., 

M ( /2 , R I / ) ,=ESOM(RI .PHITE (/«/) ) ., M(/3.RI/> ,=ESOM (R I . PHI THE ( /K/ ) ) ZENO/. . 
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OUTPUT (61.#<*32S.//*7S.0.60 -3 B.9S. *0 *60* /X > * * 

* ( /CORRECT I ON FUNCTION QUANTI T IFS. . * > * . * t *TAU (C 1 =* 1 *, T. 
*(*TH£TA(C>=*>*»-TH»RAO) .* 

OUTPUT (61 .*<*/*6(*.6D/*02B) .♦0.30*17. 
M(/l,l/>,M(/l,2/),M(/l,3/).M(/1.6/>,RL(/l/>>.. 

OUTPUT (61 . * ( */.6( ♦,60**02B) . ♦D.RD*) *. 

670** M 1/2,1/) .M(/2,2/l ,M(/2,3/> .M(/2.6/) ,RL(/2/> 1 . . 

OUTPUT (61 , < (*/,6 ( ..60**02B) . *0.30*) *. 

M ( A3, 1 /) ,M (/3.2/1 ,M (/3.3/1 .MI/3.6/) ,RL (/3/> > . . 

M33.=M(/1 .l/)»M(/2,2/)-M(/l ,2/)«M(/2. 1/1 ., 

M?3.=M(/1 , 1/1 »M 1/3.2/ >-M(/l .2/)«M(/3. 1/1 .. 

Ml 3*=M (/2, 1 /) *M(/3.2/)- M (/2.2/)»H(/3. 1/) ,. 
0FT.=M(/l,3/>»Ml3-M(/2.3/)*M23.M(/3,3/)»M33.. 

P(/3/) ,=(RL (/l/l »M1 3-RL ( /2/) *M23.WL(/3/)*M33)/OET. . 

PL (/I /) . =RL ( / 1 / ) -M (/I ,3/t«P (/3/1 .. RL ( /2/ ) .=RL(/2/)-M(/2.3/)*P(/3/) . . 
P</?/) .=(M(/l,l/)»RL</2/)-M(/2,l/)*RL(/l/)>/M33.. 

6R0»» P(/ l/).=(RL(/l/>-M</l,2/)«P</2/))/M(/l.l/>.. 

01/3/) . = (M ( / 1 .6/1 *M1 3-MI/2.6/) *M23«M(/3.6/)*M33)/0FT.. 

M(/1,6/).=m(/i,6/»-M(/1 • 3/JI ^0 <_£!£> - 

M(/? T 6-/r.-=M(72r6V>^M'(/?.3/l*0(/3 /) .. 

Q ( /2/1 .=(M(/1 .l/l«M(/2.6/l-M{/2. l/l «“(/ 1.6/) 1 /M33.. 
Q(/l/).=(M(/1.6/>-M(/1.2/>*Q(/2/>)/M(/l.l/).. 

R6.=1.0/EXPSI/EXPSI., 

Al.=CE(/3.2.2/)»B6., 

A2.=CF (/3.2. 1/)«R6.,A3.=-B6.. R 1 . = -CE < /3 .2. 1 /) »P6. . B2. =CE ( /3 . 2 ,2/ ) *B6 . 
* I F / MU2IN /THEN* 

69 0»* MULT 1/6/ ) * = -(RR(/2/) ♦B1»P(/1/1 »R2«P ( /2/ ) -MU2* ( AR ( /?/ > .A1«P (/1/t .A2* 

P </2/) *A3»P 1/3/1 ) ) / ( MU2* ( A 1 *Q < /] /> .A2*0( /2/) ♦A3»0 ( /3/) ) - (B1 *0 ( / 1/1 *R2* 

Q ( /?/ ) -B6 I ) 

*ELS£* 

■ i MULT (/6/) .= (P (/l/l *0 (/.l/l *P (/2/1 *0 (/2/1 ♦P(/3/>*0(/3/> )/ 
(0</l/)*0(/l/)*0(/2/)*b(/2/)*6(/3/)*0(/3/)*l).. 

'• MULT ( / 1 / 1 .=P(/l/)-MULT </6/)*Q(/l/) *. 

MULT 1/2/ ) . = P(/2/)-MULT(/6/)*0(/?/) 

MULT(/3/> .=P(/3/)-MULT (/6/)»0(/3/) .. 

OUTPUT (61 .* (</.6(., 60* .02R) *)*. MULT (/l/l . MIJL T ( /2/> .MULTI/3/) .MULT(/6/l ) 
S00»* *ENO*.. 

*F0P*SI0E.=1 .2*00* *FOR* SIR. =0.1 *00* 

*BFGIN* K.=(-1)*P0WER*(SI0F*SIG) ., 

DX</1 .SIDE. SIC,/) ,=0X (/l, SIDE. SIR/) *K« (MULT (/l/l *XTI (/l/l *MULT(/2/>* 

XTI (/?/) ) .. 

OY (/l .SIRE. SIG/) • =0Y (/I .SIOE.SIG/) ♦K»(MULT (/1/)*YTI (/l/) .MULT (/2/)« 
YTK/2/11.. 

K.= (-1 ) /P09FR/SIDE. . *F0R*J.=2» 3*00* <REG IN* 

OX (/J. SIDE. Sir,/) * = 0X (/J.SIOF.S If,/) *K* (MULTI /1/)*XPI 1/1/ ) 

-MULT(/2/)»XPI (/2/) ) ., 

S10»» OY (/J.SIOE.SIG/) ,=OY(/J,SIOE,STG/)-K*(MULT(/l/)*YPI(/l/) 
-MULT(/2/)»YPI.(/2/) ) .. 

*ENO* *ENO* * . 

<F.NO* CUSP-TEST*. 

OUTPUT (61 ,* ( X//.23S*) *.* <* INTEGRATION CONSTANTS..*)*).. 

*FOR* SIG .=0.1 *00* *RFG IN* OUTPUT (6 1 .*(*/*)*). , 

*FOP * J. = 1.2.3 *00* *PFG I N* OUTPUT (61 .*( */,2S*03B* )*♦* (*J=*1 *.J) . . 

*FOR< S10E .=1.2 *00* * R EG IN* OUTPUT (61 .* (*2 ( ♦ZD.502B) *) *. 

OX (/J.SIOE.SIG/) .OY(/J. SIDE. SIG/) ) *ENO* *ENO* *ENO*.. 

<REG IN* /COMMENT* REREKENING VAN OE KROMTF.STRAAL . • 

S?0»» *PEAL* PPS.RO.. * APR A Y * A.R.Al (/2..J/).. 

*FOP* N . =2 , 3 *00* 
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X BEG IN/ A(/N/).= 

AB (/N/) * (/IF/ CUSP /THEN/ £XP<-N*Sll« 

(MULT ( /I /) »C£ I/3.N.2/1 *MULT </2/ 1 »CE ( /3 .N . 1 / > 1 /ELSE/ 01 .. 

0(/N/) .=RB(/N/1* (ZIE/CUSP/T HE NZEXP(-N*SII* 

(-MULT </ 1/1 *CE (/3.N, 1/ 1 *MULT 1/2/ I *CE (/3.N, 2/ 1 l/ELSF* 0) /END/.. 
A(/?/l.=A(/2/l*(/IF/ CUSP /THEN/ -MULT ( /3/ ) «EXP ( -2«S I ) /ELSE/ 0).. 
B(/2/).=B(/?/l*(/IF/ CUSP / THEN/ MULT ( /4/ 1 *EXP ( -2«S I ) /ELSE/ 0)., 
FPS.=-.5*ARCTAN(R(/?/l/A(/2/i 1 . . R0.=A(/2/l*A</2/)*B(/2/>*B</2/t., 

530** /FOP/ N.=2.3 /DO / A 1 ( /N/ 1 . = A ( /N/ 1 »C0S (N® EPS 1 -B ( /N/ 1 «S IN ( N»FPS1 . . 
R0.=4*APS(A1 (/2/1/A1 (/3/>»S0RT(Tl*R0> !.» 

OUTPUT (41 ./(////./</ STAGNAT ION POINT*)/. //>/!.. 

OUTPUT (41 . / (/H,* (ZTHETA/I /,8B.* (ZX/1 Z.9R,* (*Y/1 Z.8R./ (Zl/R/1 Z.flB. 
/(/CP/)//)*) .. 

OUTPUT (41. *(*//. 3( .0.50PB) . . 50/* ZOBB. *0.40/1 /. 

-EPS ‘SIGN (FPS) *0 .5»PI .-OX (/1.2.1/1 . OY ( / 1 . 2. 1 / 1 . 1 /BO . 

( l-TI)/TI/3.5*( (1.0/U-TI) 1 /POWFR/3.5-1 1 1 .. 

OUTPUT (41, /(///./( ZMU2-* )//)/. B(/2/)/A(/2/> 

ZENO/. . 

54 0** /BEG IN/ /REAL/ A , R , C, TS . TZ .PS I . Tfi .OT . TMAX . maxOT . M INDT . THET AB, THET A . 

OTHf TAB.OTHETA. , 

/INTEGER/ w. MODE. EH « SOPS I. VT. TASK, NTH.. 

/BOOLEAN/ TLPNT. SONIC.. 

/ARRAY/ ERROR (/I . .2/1 . TW.THW ( /O . .2/ > . . 

/PROCEDURE/ PARAB(X.Y) . « /VALUE/ X.Y.. /ARRAY/ X.Y., 

/PEG IN/ /COMMEN T / BFPAALT COEEF I C I ENTEN A.B EN C ALS Y ( / I / ) =AXX*BX »C. 

r=o.i.?.. 

/REAL/ 0., 

550»* 0. = < Y (/2/1 - Y 1/0/1 1 / (X (/2/1-X (/O/.l 1 .♦ 

A.=((Y(/l/)-Y(/0/ll/(X(/l/)-x(/0/))-01/(X(/l/l-X (/2/I I ., 

0.=O-A* (X </0/l *X 1/2/1 1 .. 

C.=Y(/0/)-X(/0/l»(A*x(/0/l*B) 

/END/.. 

/PROCEDURE/ ZERO < X . A. FA. H. EB. EX. El.. /VALUE* A.B.. 

/REAL/ X. A, FA. «, EH. EX,. /ARRAY/ E.« 

/BEGIN/ /REAL/ C, EC. M, I, TOL. RE, AE.« 

/INTEGER/ K., 

S60»» RE.=E(/1/)., AF.=E(/2/l.. K.=0.. 

X.=R. , /GOTO/ ENTRY., 

GOON.. K.=K*1., / IE/ AHS(I-B) /LESS/ TOL /THEN/ I . =B*SIGN ( C-B 1 *TOL . , 

X . =/ IF/ SIGN(I-M) /EQUAL /SIGN(B-I1 /THEN/ I /ELSE/ M.» 

A.=B.» EA.=FB., B.=X«, EH.=FX., 

/IE/ SIGN (EC 1 /EQUAL / SIGN(EB) /THEN/ 

ENTRY.. /BEGIN/ C.=A., FC.=EA., /END/., 

/IE/ ABS(EB) /GREATER/ ABS(EC1 /THEN/ 

/REGIN/ A.=H., EA.rEB., B.=C.. FB.=FC., C.=A.. FC.=FA., ZENO/.. 

M.= (B*C) / 2., 

570*® I . =/ IEZ EB-EA /NOTEOUAL* 0 /THEN/ < A*EB-B® E A I / (FB-FA I /FLSE/ M., 

TOL.= ABS ( B*RE 1 ♦ AE . . 

/IE/ ABS ( M-B 1 /GREATER* TOL /AND* K /LESS/ MAXITZTHEN/ /GOTO/ GOON 
X .=P . , TZ.=K.» 

ZENO/ ZERO., 

/PROCEDURE/ ZEROSTAT (X.XB.A3S0X.EX .S.E.Nl ., 

/VALUE/ XB.ABSDX.E.N., 

/REAL/ X.XB.ABSDX.EX,. * I NTEGER* S,N.« /ARRAY/ E.« 

/BEG IN/ /REAL* XMK , EMK , 0 1 SCR , EM, XMU.MU, MIN. , 
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S80*» A INTEGER/ I.J.K.M., /BOOLEAN/ ROOT.. 

/ARRAY/ XI.FI,AGSX(/0..2/) ., 

K.=2., 

XI </l/) ,=X.=XR.. El ('/]/> .=FX.. 

XI (/o/) .=X.=XB-S»ABSnx*SIGN (Ft (/!/) ) ., FI I/O/) , = Fx . » 

XMU.=(X I I/O/) OF I </l/>-X I 1/1 /I «F I </0/> >/ (FI ( / 1 / ) -F I ( /0/ ) > . . 

/IF/ S=SIGN( (FI (/1/l-FI (/O/) l/(XI(/l/)-XI(/0/) > ) /ANn/ 

(XMU-Xl (/0/) )/(Xl (/l/I-XI (/0/> I /GREATER/ 0 /THEN/ /GOTO/ PROCZERO 
/ELSE/ MU. =-1.0.. 

XMK • =-X B • . FMK.=/-20.. 

S90«* NEW PABAB.. 

K • =K ♦ 1 * , /IF/ K /GRE ATFR/N/THEN/ /HE G IN/ S.=N.« /GOTO/ ENOPROC /END/.. 
X. = XI 1/2/1 . = U.0-MU)»XI (/O/) *MU*XI (/l/) .. F|(/2 /),sFX.. 

PARAR(XI.FI) ., 

DtSCR.=8»B-4.0»A*C. . ROOT . =0 /LESS/ OISCR.. 

/IF/ ROOT /THEN/ XMU.=,5* (-R*S*SORT ( 0 1 SCR ) ) /A /ELSE/ 

/BEGIN/ XMU •=- ,5®9/A ■ . FM.=-.2S*UISCR/A. , 

/IF/ AHS (XMK/XMU- 1 ) /LESS/ F(/2/l /OR/ ARS (EMK/EM-1 | /LESS/ 

F(/2/) /THEN//BEGIN/ X. = XMU.. S.=Q .. /GOTO/ FNDPROC /END/,.. 

~ XMK * — XMU.T FMKT=FM - « . 

600** /END/.i 

/COMMENT/ REARRANGEMENT OF THE (xI.FI) TO DECREASING VALUES OF 
ARS ( X I -XMU ) .. 

/FOR/ I ,'=0.1,2 /DO/ ABSX (/!/> ,=A9S(X I (/I/)-XMU> . . 

/FOR/ I, = 0,1 tOO* 

/REGIN/ MIN.=APSX(/I/)., M.=!.. / FOP/ J.=I*1 /STEP/ 1 /UNTIL/ 2 /DO/ 

/if/ arsxi/j/i /less/ min /then/ 

/BEGIN/ MIN.=ARSX(/J/I ., M.=J /END/., 

MIN.sARSX (/I/) . . ARSX </!/) .=4BSX (/«/) .. ABSX < /M/ ) . =M IN. , 

MIN.=FI (/I/) ., FI <>!/) ,=FI (/M/l ., FI (/M/) .=MIN., 

610** MlN.sXI (/I/> ., Xl(/I/).=XI(/M/)., X I ( /M/l . = M IN 

/END/., 

MU. = (XMU-XI(/0/))/(XI (21/) -XI I/O/) ) . . 

/IF/ /NOT/ ROOT /OR/ Mil /LESS/ 0 /OR/ SIGNCFJ I/O/) >=SIGN(FI </l/> 1 
ZTHEN/ZBEGINZ MU . = . 25* <3* SIGN (MU )-!).♦ / GOTO/ NFW PARAB /END/., 
PPOC.ZFRO. . ZFRO(X,XI(/O/).FI(/0/l,XI(/l/).FI(/l/).FX.E).» 

ENDPROC.. TS.=K., 

/END/ ZEROSTAT., 

/REAL/ /PROCEDURE/ PSIRC., 

620** ZPFGIN//REAL/ PSI., 

TH. =E ACT ( /3/ ) ,=-THET A . , 

SIG. = 0,S®(1 *SIGN (THETA) ) 

/IF/ MODE=A /THEN//FORZ TEL. =1.2,3, 4,5 ZOO/ 

XBEGINZZFOR/ K.=l / STEP/ 1 /UNTIL/ 48 / DO/ LMAX ( /TFL ,K/ > .=0 . , 

/IF/ CUSP / T HEN//F DR/ K. =3,4,5.8.9,10 ' /DO/ ELMAX ( /TEL ,K/ ) . = 0 
ZENO/., 

PSI .=SOM(J, SIDE, P(MOOE) I ;C0RR(PE (MODE) ) ., 

OUTPUT (41 ,/ (Z/,.2Z0.40fl.,ZO.5D8/)X,THETA*RA0.PSI> .. 

/IF/ MODE = 1 ZTHENZ/GOTOZ ASSIGN., 

630** X.=SOM< j,s IDF. XP (/E/) I .CORP ( XE ( /K/) I »OX (/ J» S IDE* S IG/) . , 

Y.=S0M ( j.STOE ,TP (/K/) ) *CORR ( YE(/K/) ) »DY (/ J.SIDE , S IG/ ) ., 

/ IF/ SONIC /THEN/ 

/REGINZ OUTPUT (41 ,/ (/? ( »ZD. SDR) /) Z,-X,Y) . . 

/GOTO/ ASSIGN 

ZENO/ • , 

PHIT. = SOM( J.SIDE, DPDT </«/) ) ,COPR (PH I TE </*/»>. » 

PhITH. = S0M( J.SIDE, OPOTHI/K/) ) »CORR (PHI THE ( /K/> ) . , 


AIRFOIL' 

SB2 

AIRFOIL 

583 

AIRFOIL 

584 

AIRFOIL 

585 

AIRFOIL 

586 

AIRFOIL 

SR7 

AIRFOIL 

588 

AIRFOIL 

589 

AIRFOIL 

590 

AIRFOIL 

591 

AIRFOIL 

592 

AIRFOIL 

593 

AIRFOIL 

594 

AIRFOIL 

595 

AIRFOIL 

596 

AIRFOIL 

597 

AIRFOIL 

598 

AIRFOIL 

599 

_A I REOIL- 

- 600 

A1RFOIL 

601 

AIRFOIL 

602 

AIRFOIL 

603 

AIRFOIL 

604 

AIRFOIL 

605 

AIRFOIL 

606 

AIRFOIL 

607 

AIRFOIL 

608 

AIRFOIL 

609 

AIRFOIL 

610 

AIRFOIL 

61 1 

AIRFOIL 

612 

AIRFOIL 

613 

AIRFOIL 

614 

AIRFOIL 

615 

AIRFOIL 

616 

AIRFOIL 

617 

AIRFOIL 

618 

AIRFOIL 

619 

AIRFOIL 

620 

AIRFOIL 

621 

AIRFOIL 

622 

AIRFOIL 

623 

AIRFOIL 

624 

AIRFOIL 

625 

AIRFOIL 

626 

AIRFOIL 

627 

AIRFOIL 

628 

AIRFOIL 

629 

AIRFOIL 

630 

AIRFOIL 

631 

AIRFOIL 

632 

AIRFOIL 

633 

AIRFOIL 

634 

AIRFOIL 

635 

AIRFOIL 

636 

AIRFOIL 

637 

AIRFOIL 

638 

AIRFOIL 

639 




B-95 



ALGOL-60 PSR302.4CI 


XXALGOL 


10/26/72 12.42 HPS 


PAGE 12 


/IF/ TLPNT /THEN/ jp.=o /else Z 

JP.=-< (1-Tl ZP0«FRZ?.5*T/TI) /POWER/ 2/ ( <2«T»PHIT) /POWER/?* 

640«« (l-6«T)/(l-T)»PHITHXP0WER/2) .. 

OXOTH.=FT*<PHir»COS<TH)-.5/T*PHITH*SIN<TH) 

DYOTH.=FT»(PhIT»SIN<TH> ..5/T»PHITH«COS(TH) ) ., 
RR.=-JP/(1.(1-MACH»MACH)*<PHITH/(2«T»PhIT))ZP0WFR/2)*TI/T.. 

OUTPUT (41,Z(/4(.Z0.5UB) ,R. ♦ .SDZ.ZO,//. 

‘Z0.501 1R.2(»Z0.50B) . 2 IB . ♦ .50Z*ZD. /// > Z . 

-X.Y.PHIT.-PHITH, JP.-TH, DXDTH. -OYOTH, SORT (ASS (RR) > ) . « 

/PFGIN/ /INTEGER/ MAX, KMAX.. OUTPUT (41 ./(//( / K MAX />//)/).. 

/FOR/ TFL.=1.2.3«4,5 /OO/ 

/BEGIN/ MAX • =0 • * /FOR/ K. = l /ST FP/ 1 /UNTIL/ 4B /OO/ 

650»* /BFGIN/ / IF/ LMAX (/TEL.K/I /GREATER/ MAX /THEN/ 

/BEGIN/ KMAX.=K.« MAX.=LMAX(/TEL.K/) /END/ /END/.. 

OUTPUT (41 ,z</2BZ0.R2Z02H/|Z.KMAX,MAX) ZEND/.. 

* IE/ CUSP /THEN/ /BEGIN/ 

OUTPUT(41, /(///,/(/ KC MAX /)//)/).. 

/FOR/ TEL. =1.2.3. 4, 5 /OO/ 

/BFGIN/ MAX .=0 . . /FOR/ K . =3 .4.5. 8. 9 . 1 0 /OO/ 

/BEGIN/ /IF/ F.LMAX (/TEL.K/1 /GREATER/ MAX /THEN/ /BEGIN/ KMAX » = K . . 
MAX.=FLMAx (/TFL.K/) /END/ /END/.. 

OUTPUT (41 ,/ (/2BZO.B2Z02R/1 /.KMAX. MAX) /END/ /END/ /END/.. 

660** /IF/ 0 /LESS/ JP /THEN/ /BEGIN/ OUTPUT <41 , Z (///./< ZL IMT T-L INEZ >//)/). . 
/GOTO/ READ TASK /END/.. 

ASSIGN.. PS IBC . =PS I 
/END/ PSIBC.. 

/PROCEDURE/ NEwTAU. . 

/REGIN// INTEGER/ KT., 

KT.=100*T.. 

/IE/ T /LESS/ 0.0S ZANOZ AHS ( 1 00*T-KT ) /GREATER/ Z-8 /THEN/ 
CHAPLYGIN(T.PSIT) /ELSE/ TAPF(T.PSIT) 

670«* FTCONV • « MACH . =SQRT < 5«T/ < 1 -T I > . . 

CP.= (l-TIl/TI/3.5*( ( < 1-T1/1 1-TI) ) /POWER/3. S-l 1 .. 

OUTPUT (41, /(/*/)/! ., 

OUTPUT (41,/(///«4S,0. 604B , 2S.0.404H, 3S, *0.4D.// »4S, .605B.2S.D.//1 /. 

/ (ZTAU=Z) /,T,/(/M=/)/«MACH,/(/CP=/)/.CP./(/T0L=/)/.T0L./(/J=/)/.J1.* 
SIG.*O.S*(I*SIGN(THFTAR) ) ., 

/IF/ TLPNT /THEN/ OUTPUT (41 ,/ (////25R,/ (/TAIL POINT/)//!/) /ELSE/ 
/BEGIN/ 

/IE/ 5I0E=L0WFR /THEN/ 

OUTPUT (41 ,/ (////25B6S/) /,/ ( /LOWER /)/) /ELSE/ 

600** OUTPUT (41, /(////25R6S/)/, /(/UPPER /)/)., 

/IF/ SONIC /THEN/ 0UTPUT<41, /(//(/SONIC LINE/)//)/) /ELSE/ 

/BEGIN/ /IE/ ER=2 /THEN/ OUTPUT <41 ,/(//( /REAR PART/)//)/) /ELSE/ 

OUTPUT (41 ,/ (// (/FRONT PART/)//)/)., 

/END/. , 

ZENO/., 

/IF/ SONIC /THEN/ 

OUTPUT (41, /(///.3B.5S, 6B, 3S.BB.S.9B.S.//)/, 

/( /THETA/ )/,/(/PSI/)/,/(/X/)/./(/Y/)/) /ELSE/ 

/BEGIN/ 

690** OUTPUT (41 ,/(///, 3S.5S.6B.3S.6B. S.9H.S.48.9S.B.1 IS. 3B.SS,//)/, 

/( /THETA/ )/,/ (/PSI/) /./ (/X/ )/./(/ Y/)/./( /OPS l/OTAU/)/./( /DPS I/OTHET A/)/ 
/ ( ZOET J/)/) ., 

OUTPUT (41 ,/ (Z20B, 19S.25B.3S./Z) /,/ ( ZOX/OTHET A OY/DTHET A/ )/./(/ 1/RZ )/) . , 
/END/ 

/END/ NFWTAU.. 
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READ TASK.. 

EOF (40.EOP) ., 

INPUT (40.X (///> /> ., 

700»» INCHAPACTER(40,/(/LUT/>/.TASK) ., 

/IF/ TASK=0 /THEN/ 

/BEGIN/ OUTPUT <41 .X ( // / , Z (/ILLEGAL' T ASK/ ) / / ) X) • « /GOTO/ EOP /END/ . . 

RFW TNO (43) . , 

ZIEZ T ASK = 3 XTHENX /GOTO/ TAILPOINT • , 

S I OF • =T ASK • . 

INCHARACTER(40,/</FRSZ)Z.FR) ., 

ZIF/ FR = 0 /THEN/ 

/BEGIN/ OUTPUT(4l, /<///. /(/ILLEGAL TASK/ ) // ) / ) . , /GOTO/ EOP /END/., 
/IF/ FR=3 /THEN/ /GOTO/ SONIC LINE., 

710** 

/COMMENT/ THF COMPUTATION OF AN AEROFOIL PART., 

TLPNT.=SONIC.= /FALSE/., 

SDPSI.=-3*2«FR., MODE .=1 . , 

I NPIJT (40, /(//)/, Tfl .DT,TM AX.HAX0T»M1N0T«THETAB« DTHFTAB»0THETAL.-, 

THETARV=THETAB/RAD. , DTHETAri.=OTHETAB/RAD., OTHETA.=DTHFT A/RAO., 

ERROR ( /I / ) .=ERR0Rt/2/) .=TOL., 

/FOR/ W.=0,l,2 /DO/ 

/BEGIN/ TW ( / W/ > .=T .=TB*W*DT . , 

/IF/ T /GREATER/ TMAX»x-4 /THEN/ /GOTO/ READ TASK., 

720»* NEWTAU.. 

ZEROSTAT(ThETA,THETAB,OTHETAB,PSIHC«SDPSI,ERROR,MAXIT) .. 

/IE/ SDPSI = 0 /OR/ SOPSI =M A X I T /THEN/ /GOTO/ READ TASK.. 

THW(/W/> .=THETAB.=THETA., 

MODE. =4., RSI.=PSIRC., MODE .=1 . , 

ZENO/.. 

/GOTO/ PARABOLA., 

NEXT.. T.=TW(/2/l .=T«DT., 

/IF/ T /GREATER/ TMAX./-4 /THEN/ /GOTO/ READ TASK., 

NEWTAU . , MODE .=1 . , 

730** ZEROST AT (THETA, THET AB.OTHETA.PS I BC.SDPS I, ERROR, MAX1T) .. 

THW(/2/) • =THE T A . , 

/IF/ ABS ( SOPS I ) = 1 /THEN/ 

/BEGIN/ M00E.=4., PSI.=PSIBC /END/ 

/ELSE/ /GOTO/ READ TASK., 

PARABOLA. . 

PARAB(THW.TW) ., 

/IF/ -A /LESS/ Z-10 /THEN/ 0T.=1.0 /ELSE/ 
OT.=ARS(0.2S«(2.O»A*THW</2/),R> /POWER/ 2/(4. 0*A))., 

DT .=/ IF/ MAXOT /LESS/ OT /THEN/ MAXOT /ELSE//IFZ OT /LESS/ MINDT 
740** /THEN/ MINDT /ELSE/ DT . , 

V/T , = OT /M I NOT . . DT.=VT«MINOT., 

THw(/0/).=THW(/l/)., THW(/1/I • =THW ( / 2 / ) • , 

TVM/0/) . = TW(/1/) ., TW(/1/) ,=TW</2/) .. 

THFTAR.rTHW (VI/) *OT* < THW (/I /) -THW </0/> ) / ( TW ( / 1 /> -T W ( /0/ ) ) . , 

/GOTO/ NEXT., 

TARPOINT.. 

TLPNT . =/TRUE / • , SONIC.=/FALSEZ. , 

INPUT (40./(/B/)/,T,THETAB)., 

750** THETA. =THETAR/RAD., TH.=-THETA., 

MOOF . =4 . , SIOE.= (3-SIGN (THET A) )/2.. 

NFWTAU. . 

PS I . =PS IRC . » 
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AGOTO A PF AO TASK., 
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SONIC LINE.. 
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T.=l/6.. SONIC. =ATRUEA., MODE 

. = 3., 
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TLPNT.=AFALSEA.» 
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INPUT <40,A(AA)A,NTH,THFTAB) . , 

THETA. =THETAfl. , 
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AIRFOIL 

764 


AIFA TTH AGREATFRA 1 ATHENA 

INPUT (40, A (AA) A, THETA) ., 


AIRFOIL 

765 


THETA. =THETA/MAD., 



airfoil 

766 


PS I ,=PSIBC . * 



AIRFOIL 

767 


AENOA TTH-CYCLE., 



AIRFOIL 

768 


AGOTOA READ TASK., 



AIRFOIL 

769 


AENDA., 



airfoil 

770 


EOP . . 



AIRFOIL 

771 

770«« 

AENDA., 



AIRFOIL 

772 


AENDA 



AIRFOIL 

773 


aeopa 



AIRFOIL 

774 
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LINE 

0 

PROGRAM BEGINS 

(MESSAGE) 

1 

LINE 

771 

PROGRAM ENOS 

( MFSSAGF > 

1 

LINE 

771 

SOURCE DECK 

END5 

(MESSAGE) 

1 

LINE 

425 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

426 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

L INE 

427 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

431 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

431 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

431 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

432 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

432 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

465 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

465 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

466 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

514 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

516 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

674 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

674 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

674 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

674 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

674 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

679 

NON-FORMAT 

STRING 

(MfSSAGE) 

l 

LINE 

LINE 

6A0 

6RB 

non-format 

NON-FOPMAT 

STRING 

.STRING. 

(MESSAGE) 

(MESSAGE.) 

1 

LINE 

68ft 

NON-FORMAT 

ST W I NG 

(MESSAGE) 

1 

LINE 

658 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

688 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

691 

NON-FOPMAT 

STRING 

(MESSAGE) 

1 

LINE 

691 

non-format 

STRING 

(MESSAGE) 


LINE 

691 

non-fopmat 

STRING 

(MESSAGE) 


LINE 

691 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

691 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

691 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

692 

NON-FORMAT 

STRING 

(MESSAGE) 


LINE 

691 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

700 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

706 

NON-FORMAT 

STRING 

(MESSAGE) 

1 


THE FOLLOWING CONTROL CARO OPTIONS APE ACTIVE f.I.L.X 


CORE MAP 12.43.31. NORMAL CONTROL 


TIME 

LOAD MODE —LI 

— L2 TYPE— 


♦ ♦ — CALL— 

FWA LOAOFR 

103741 FWA 

TAfiLES 076625 



-PROGRAM-- 

-ADDRESS- 


—LABELED COMMON- 

- 

XX ALGOL 

000340 


DATA 

000100 

ALGORUN 

042340 


DATA 

000100 

ALGL0OO 

044712 


DATA 

000100 

ALGLB01 

050127 


DATA 

000100 

ALGLB02 

050656 


DATA 

000100 

ALGLB03 

056525 


DATA 

OOOIOO 

ALGL905 

057360 


DATA 

000100 

ALGLB06 

060152 


DATA 

OOOIOO 

—Entry — 

— ADDRESS- 



references 

XX ALGOL 

A41367 




ALGOPUN 

042340 

XX ALGOL 



alglboo 

044712 

XX ALGOL 



ALGLB01 

050127 

XX ALGOL 



ALGLB02 

050656 

XX ALGOL 



ALGL803 

056S30 

XX ALGOL 



ALGL0O5 

. 057360 

XX ALGOL 



ALGLB06 

060152 

XX ALGOL 




000100 063254 061054 

FWA LOAO--LVA LOAO— 8LNK COMN- 


UNSATISFIED EXTERNALS 


REFERENCES 


CHANNFL ♦ 60= INPUT t D BO*P 

CHANNEL ♦61=0UTPUT*P136.HP60.R 

CHANNEL .40=60 

CHANNEL *4 1 =41 

CHANNEL *4 3 = LU4 3 • A « R 

channfl*end 


0022^6 

-LENGTH 
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1 


00»» /BEGIN/ /COMMENT* R|_OK 1. PROGRAM t .320. SMOOTHING ANO INTERPOLATION 

OF THE FUNCTIONS. WHICH ARE SPECIFIED HY THE VALUES OF THE FUNCTION AND 
ITS FIRST T»0 HER! VAXES AT A DISCRETE SET OF OPD I NATES ♦ USING.. 

A. sPLINF INTERPOLATION TFCHNIOUES. 

fi. A LFAST SOUAREs CONDITION AT THE GIVEN VALUES OF THE FUNCTION AND ITS 
FIRST TwO OER I V ATES * AND 

C. A SMOOTHNESS CONDITION ON THE THIRD DERIVATIVE.. 

/INTEGER* NC. IC.. 

/PEAL* r.l • C?,C3.Yfl,Yl.Y2,Y3.Y4.YS,A3.A4,A5., 

10** START OF PROGRAM.. INPFit. (40 , I C> . • 

/IF* IC /LESS* 0 *IHf.N* *GOTO* RUNS COMPLETED. » INRF AL (40 . NC) . , 

/REGIN* /COMMENT* HL OK 
/INTEGER* I.J.. 

/ARRAY* XC(/0..NC/>, Y .YCORR I/O. .3»NC*?/i .. 

/PROCEOIJPE* SMOOTH THE VFCTOR Y.. 

/RE GIN* *_RF.AL*_ ERS.»— NU0-«— Nijl i-NlJ2.- MU3.-MU4 ,- MU5.-S IGMA0 i~ EPST, - EPS2T 

TOL1. T0L2. SIGMA), S T GM A 2 , RH03, RH04i RhOSi F« S. 

20** Cl. C2 • C3. C4 , CS. CD. C7. CR . C9. CIO. Cll. Cl?. C13« C14. 05.. 
/INTEGER* I . J.K.L.M.M.O.P.O. NS I GM A . N'RHO. KC. KM AX . KKC. KKM AX . • 
iaRRAYX epse. oc. SC. ec. Y4I I/O . ,3*NC*2/1 . 

PI I/O. ,3«NC»2. 4..V/I. P2 I/O . .3»NC*2. 1..S/1. 

LCI/1..G. 1..6/1. DO .011/1. .S/), P(/0..3»NC*?. I. .9/).. 

/BEGIN* /COMMENT* 1. READ AND PRINT INSTRUCTIONS FOR THE 
WEIGHT VECTORS E AND S., 

/PROCEDURE /UTPUT (NSP. A.B.C.K. A i . H 1 .C 1 . AC .M ) . . * VALUE/NSP . A I . H 1 .Cl . • 

/real* »,p.c. ai ,bi , ci . . /integer* nsr.k.m., /array* ac., 

30** /begin* /FOP* I.=l /STEP* 1 /UNTIL* NSR /DO* 

/BEGIN* INPI1TI40. *(**)/. A. n. C. Kl .. 

OUTPUT (4l,*(*/,3(*0.70*.?/uRl •♦208*)*, A.P.CK)., 

* IF * NSR /NOTGPFATER* l /THEN* K.=nC.. 

*EOP* j.sj.l /WHILE* J /NOTGWEAIEP* k *00* 

/BEGIN* L . =3* J . . /IF* M=0 /THEN* 

/REGIN* AC(/L/).= A1»A. . AC(/L»l/),= P1*R., AC(/L*2/>.= C1«C.. 
ZENO* /ELSE* 

/BEGIN* AC(/L/).= A 1 / A . . AC ( /L ♦ 1 / 1 .= Rl/P.. AC(/L*2/>.= Cl/C.. 
/END/.. 

4 0»* *ENO* . . J.= K.. 

*ENO*.. 

./END* OF PROCEDURE UTPUT.. 


INPUT (40./ <**) /. 

I . EPS, NO 0, NO I ,NU2.MU3.MU4.MUS.NSIGMA,KKMAX.KMAX,TOL1.TOL2) 
OUTPUT (41, /(/», /(/DATA INPUT TaPE NUMRfr R/) *. *20/) *. 1 ) . . 
OUTPUT (41, *(*7(/,3S. 38, *(*=*)*, *20. 70* ♦ZZD)*)** 

* (*EPS*)*, EPS, *( *NtJO* I * , NUO , * ( *NU 1 * ) *»NU1»*( *NU2*)*.NU2, 

/ ( ZMU3* ) # .MU3.*(*MU4/) * .MIJ4.Z (*MUS/) *,«U5> .» 

OUTPUT <41«/(*3(/,sS,*(/ = *)*»*7l>>*)/« 

*(*NSIGMA*)*,NSIGMA,*(/KKM»X /)*,KKMAX,*(*KMAX *)*,KMAX)., 
OUTPUT (41, *(*2</»4S, SB, *(***)/» ♦0.7D**Z?D) *1 *♦ 

* <*T0L1 *)*» T0L1 .* ( ZT0L2Z) /.T0L21 . • 

OUTPUT (41, *(*/.*(*srPMA0.SICMAl,SIGMA2,K*)**)») ., 

J.=-l . , 

UTPIJT (NS IGMA.SIGMAO.SIGMAl . S IGM A2.K.NU0 «NU1 .NU2.EC, 1) 

J . = “1., N’RHO . = 1., 


APPENDIX E 
LISTING OF SMOOTH 
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70»o 


P0*o 


<?Qo* 


l on«o 


nooo 
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OUTPUT (4 1 . / (//,* (/RH03.RH04.RH05.K/) */)/>., 


SMOOTH 

60 

UTPUT <NRRO.RHO3.RHO4.RhOS.K.MU 3.MU4.MU5.SC»0> . i 


SMOOTH 

61 

*FND*.. 


SMOOTH 

62 



SMOOTH 

63 

/COMMENT * 2. DETERMINATION OF THE MATRIX H., 


SMOOTH 

64 

/COMMENT/ 2.1. DEFINITION OF THE MATRIX LC.. 


SMOOTH 

65 

LC(/l»l/).=LC(/4.4/).= *720.. 


SMOOTH 

66 

LC </5.2/> .=LC</2.5/> .= *168.. 


SMOOTH 

67 

LC (/6.2/I .=LC </2.6/> .= - 24.. 


SMOOTH 

68 

LC </4. I /) .=LC(/1 .4/) .= -720.. 


SMOOTH 

69 

LC(/3»3/l .=LC(/6.6/> .= * 9.. 


SMOOTH 

70 

LCt/5.3/) .=LC(/3.5/> .= ♦ 2 m.. 


SMOOTH 

71 

LCC/2«?/>.*LCC/5«S/).* *192.. 


SMOOTH 

72 

LC(/6«3/).=LC(/3.6/>.= - 3.* 


SMOOTH 

73 

LC(/3.?/) .=LC(/2.3/> .= ♦ 36.. 


SMOOTH 

74 

LC 1/6.5/) .=LC 1/5. 6/1 .= - 3b.. 


SMOOTH 

75 

LC </4. 2/ ) . =LC 1/2.4/) ./LC 1/5,4/) .=LC 1/4.5/) .= -360. . 


SMOOTH 

76 

LC (/?. 1 /) .=LC t/5, 1 /> .=LC (/I .?/) .=1 Ct/1 .5/1 .= *360. . 


SMOOTH 

77 

LC. I/3.1/1 .=LC(/1 .3/) .zl.C t/b.4/> ,=LC(/4.6/> .= ♦ 60.. 


SMOOTH 

78 

LC(/6.1/> .=LC</4,7/> . =LC(/3»4/l . =LC(/l»b/l .= - 60.. 


SMOOTH 

79 



SMOOTH 

80 

ZCOMMFNT/2.2. CYCLE DETERMINING H . . 


SMOOTH 

81 

KKC.= 0.. 


SMOOTH 

82 

ONCE MORE 1.. *KC.= KKC»1., 


SMOOTH 

83 

OUTPUT 1 4 1 , / </o,* (ZKKC=Z)X.ZZ0Z>Z.KKC> .. 


SMOOTH 

84 

/FOR/ J. = 0 /STEP* 1 /UNTIL/ NC *00/ 


SMOOTH 

85 

/BEGIN* I.= 3* J- 1 . . /IF/ J /LESS* NC ZTHFNZ 


SMOOTH 

8b 

/RFGINZ Cl.= C2.= l/< XC(/ J»l/)-XC(|/J/)).. 


SMOOTH 

87 

/FOR/ «.=1 /STEP* 1 /UNTIL/ 5 *00* 


SMOOTH 

88 

/BEGIN* 00(/K/).= C2 . , C2.= C2»C1 /END/.. 


SMOOTH 

89 

/IF/ KMAX=1 ZAND/ KKMAX/1 /THEN/ /GOTO/ KM AX ONE., 


SMOOTH 

90 



SMOOTH 

91 

/COMMENT/ 2.2.1. COMPUTATION OF RhOJ., 


SMOOTH 

92 

Cl .= 0., /FOR/ K. = l /STEP* 1 /UNTIL* 6 /DO/ 


SMOOTH 

93 

/RFGINZ C2.= C3.= 0., M.= 7-K.. 


SMOOTH 

94 

/FOR/ L.=K /STEP/ 1 /UNTIL* 6 /DO/ 


SMOOTH 

95 

C2.=C2*LC(/K.L/I»D0(/M-L‘(/IFz L /LESS/ 4 /THEN/ 

0 /ELSE* 3) » 

SMOOTH 

9b 

(/IF/ K /LESS/ 4 /THEN* 0 /ELSE/ 3>/)« 


SMOOTH 

97 

(/IF/ KKC*1 /THEN/ Y(/I*L/> /ELSE/ YCORR (/ I »L/ 1) « 


SMOOTH 

98 

(/IF/ L ZNOTEOUAL* K /THEN/ 2.0 /ELSE/ 1.0).. 


SMOOTH 

99 

Cl .=C1*C2* 


SMOOTH 

100 

(/IF/ EC(/I*K/) /LESS/ Z-20 /ANO/ KKC=1 /THEN/ 0 

/ELSE/ 

SMOOTH 

101 

(/IF/ KKC=1 ZTHFNZ Y(/I»K/I ZFLSE/ YCORR ( / I *K/ ) ) ) 

. « 

SMOOTH 

102 

/IF/ AHS(Cl) /GREATER/ CJ /THEN/ C3./ABS(C1> 


SMOOTH 

103 

/END/ OF K CYCLE.. 


SMOOTH 

104 

/IF/ Cl /LESS* C3*/- 9 ZThEN/ 


SMOOTH 

105 

*RFGIN/0UTPUT(41./(//, /(/FAILURE IN COMPUTATION OF 

RHO *)/, 

SMOOTH 

106 

♦2 OR. < ♦D.7D/.2ZDP ) /) /, J.CI.C3) . . 


SMOOTH 

107 

Cl.= AHS(C1 ) .. 


SMOOTH 

108 

/END*. . 


SMOOTH 

109 

Z1FZ Cl /LESS* z-IOO /THEN* Cl. =*-100.. 


SMOOTH 

no 

/FOR* K.=l,2.3 /DO* SC(/I*K/).= 


SMOOTH 

111 

/IF* KKC = 1 * T HEN/ SC(/I»K/)/Cl /ELSE* 1/Cl., 


SMOOTH 

112 

/END* OF DETERMINATION OF RHOJ.. 


SMOOTH 

113 

/COMMENT* 2.2.2. COMPUTATION OF FJ AND ITS CONTRIBUTION TO H., 

SMOOTH 

114 

KM AX ONE.. 


SMOOTH 

11S 

*FOP* K.=l,2'3 *00* 


SMOOTH 

116 

XBECTN* K.=7-K.. t\Ft J tQXFAT 0 *THFN* 


SMOOTH 

117 
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120 »® 


130»* 


140°* 


150«* 


160®* 


1 70«» 


XREGINX C1.=SC(/I-3«K/)., 

XFORX L.=K*3 /STEP/ 1 XUNTILX 6 XDOX 
R1 </I*K,L/> .=LC(/L,K*3/)»D1 (/M-L*3/)«C1 
/END/.. 

XIFX J XLESSX NC XTHENX 
XBEGINX C1.=SC(/1«K/) 

XFORX L.=KXSTEPX 1 XUNTILX 6 XDOX 

RU/I'X.L‘3/1 .=LC(/L.K/>®DO(/M-L.(XtFXLXLESSX4XTHENAOXELSET3>/> 
*C1* (XIFXLXLESSX4XANDXJxGHEATERX0XTHENXRl </I*K.L*3/)XELSEX0> 
XENOX 

XENOX OF DETERMINATION OF FJ AND ITS CONTRIBUTION TO H., 

XFORX K.=l XSTEPx 1 XUNTILX 5 XDOX D 1 ( /«/ ) . =D0 ( /K/ ) 

XENOX OF J CYCLE.. 

XCOMMFNTX 3. COMPUTATION OF E.S.EPS. AND THE MATRIX EPS®FC*H., 

KC.=1.. KMAX.=AHS(KMAX) 

OUTPUT (4 1 • X ( X/ , X ( XK = X)X,*2DRX) X.O) .. 

AGAIN. . 

X I Fx KC XGREATERX 1_XTHE_NX 

XREGINX OUTPUT (41 ,X (X/.X ( XNUMHER of ITERATIONS IN RESIDUAL X)X, 

X( XV ECTOR METHOD. .X ) X . .-208* / X ) X. 1 1 .. 

OUTPUT(41.X<XX(XTOLFRANCE TESTS ARE X)XX)X).. 

X I FX CP XLESSX 0 XTHFNX OUTPUT (4 1 . X ( XX ( XNOT X>x*)X>., 

OUTPUT (4 l.X< XX (XSATISFIEDX) XX)X) .. 

XENDX. . 

. S.=F. = C6. = CB. = 0.4 IC.=0. = 0.4 
XFORX J.=0XSTEPX 1XUNTIL X NC XOOX 
XREGINX N.=3»J., 

0. = X IFX JXEQUALXO XTHFNX A XFLSFX 1., 

1 . =x IFX JXEQUALX NC XTHENX 6 XELSEX 9.. 

XFORX K. =0.1.2 XOOX 

XREGINX M • =N *K • . 

C3.= XIFX KC=1 XANDX KKC= 1 XTHENX Y(/M/) XELSEX YCORRI/M/).. 
C?.=CS.=0.» C5.=FC(/M/1 ., 

XFORX L.=I XSTEPX -1 XUNTILX Q XOOX 
XREGINX P • =N*L“ 4 . . 

C4.=XIFXKC=1 XANOX KKC=1 xTHENXY (/P/ > XELSEX YCORR(/P/).. 
C1.=XIFXLXGR£ATFRX3*KXTHENXH1 (/M.L/»xeLSEX 
(XIFXLXGREATERX3XTHENXR1 ( /p, K.4/ ) XELSEXR1 ( /P ,K*7/ ) ) .. 
C7.=C1*C4., S • -S*C3®C7 . , 

XIFX CSXLESSXA8S(S)XTHENX C«.=A8S(S).. 

XIFX C5XGREATERXX-10 XTHENX 

X8FGINX C?.=C2*C7.. XIFXC9XLESSX ARS ( C2) XTHENXC9.=ABS (C2 ) XENDX. 
XENOX., 

XIFX C9 XGREATERX X.9®A0S(C2) XTHENX 
XREG INXC2. =0 • . 0.=0*1 XENDX., 

XIFX CSXGREATERXX-10 x T heNX 

XRFGINX XIFX C5 XLESSX X.20 XTHENX IC.=IC*1.. C6 .=C6*C2*C2/C5. . 
C2.=Y (/M/)-C3.,XlFxC5XLESSXX*l6X0RxABS(C2)XGREATERXX-9XTHENX 
E.= E ♦ C2 » C2 * CS., 

XENOX . . 

XENDX., 

XENDX.. 

OUTPUT (4 1 ♦ X ( X/ • X < X£ =X) X, »D . 70X.22DX ) X ,E ) ., 

OUTPUT (41 ,x (X/.X (XS =X ) XX 1 X ) . , 

XIFX ARS (C8/S) XGREATERX X*9 XTHENX OUTPUT (41 . X ( XX ( XNO S IGNIF ICANTX) X . 


SMOOTH 

lie 

SMOOTH 

119 

SMOOTH 

120 

SMOOTH 

121 

SMOOTH 

122 

SMOOTH 

123 

SMOOTH 

124 

SMOOTH 

12S 

SMOOTH 

126 

SMOOTH 

127 

SMOOTH 

128 

SMOOTH 
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*(/ ANSWER/ )**)/) *ELSE< OUTPUT ( 4 l . * < * »0 . 7D/» ZZOB* > * , S > . . 

/IF/ KC = 1 / ThE N* 

/BEGIN/ 0UTPUTC41 ./(//./(/WEIGHT TABLE FOR THF RHO I /)/./,/(/ I /)/ , 
7ti.*(*PH0 I/)//)/).. 

/FOR/ J.=0 /STEP *1 ZUNT IL/NC-1/00/ 

OUTPUT <41 ,/<//. *ZOp. *0. 7D/.ZZD*) *. J. SC</3*J/>>.. 

180*® /FNO/ • . 

/lF*<E/IC*C-R£ATER*O.B*AND*£/IC*LtSS*l .2 ) /OR/KC/GREATEP/K MAX/ THEN/ 
/hEGIN/ OUTPUT (41 ./(//./(/SMOOTHING COMPLETED Al K =/ ) /. *70/1 Z.KC-1 I . • 
/GOTO/ READY.. ' 

/FNO/.. 

* |F/KMAX=1 /TnEN //GOTO/KM axONFB. . 

EOS .=* I F*KC /LESS* 3* THEN/SORT (C6/1C) / I <IF/E/L FSS/ IC/THFN/ 1 00 . 0 
/ELSE/ 1.0) 

/ELSE * E°S*E/ I C . . 

1<30** 

KM A X ONE A.. 

0UT D UT(41./(/«./(/K =/)*»»?Zn*>*. KC).. 

/IF/KMAX=1/ThEN//G0T0/KMAX one b.. 

OUTPUT (41 ,/(//,/ (/EPS =*)/.. .12n/»Z70B././(*I =* ) * • .ZZD. / • 

*(/C6 =/)/.». 120*. ZZD,/, /( /NUMBER of non SIGNIFICANT /)/. 

/ (/CONTRIBUTIONS IN C6 AND F ../)/. *7 ZO/ )/ . 

FPS. IC. CO. U) . . 

KMAX ONF B . . 0 . = 3»NC*7.. /IF/ KMAX = 1 /THEN/ 

200»* /OEGIN//F0R/L .=0/STEP/ 1 /UNT IL/U/UO/Yw (/L/ ) .=0.0*FND/. • 

/FOR/ J.=0 /SIFP/ 1 /UNTIL/ NC /DO/ 

/BEGIN/ N.=3*J.. 

I.=/IF/j/EOUAL/ NC /THEN/ 6 /ELSE/ B. ♦ . 

/FOR/ K.=0. 1 .2 /OU/ 

/BEGIN/ P • =N *K , * 0 • = 4.K . . 

/IF/ KMAX=1 /THEN/ 

ZPEGlN/ZINTFGEx/T.. 

T.=*IEzJ=NCZTpENZ2ZELSEZS.« 

/IF/ ECI/P/) /grfatfr* *-10 /Then/ 

210«* /BFGIN/ Cl. =0.0.. U.=0.. 

/FOR/ L.=0 /STEP/ 1 /UNTIL/ I /DO/ 

/BEGIN/ R(/P*L/) .=0.0.. 0 . =Q* 1 . « Cl .=C1 » ABS (R1 (/P.L/ ) ) ZFND /., 
RI/P.O/) .=ERSF (/p/) .=C1 .=M2.0«C1-A8S<R1 (7P.0/I ) >*FPS/Q.. 
C2.=Y(/P/)., YW(/p/).a C l*C2 . i 
Q . =Z IFZ J=0 /THEN/ 0 /ELSE/ -3 . *K . =K- 1 . . 

/FOR/ L.=0 /STEP/ 1 /UNTIL/ K /DO/ 

/BEGIN/ 0.=N«L.« 

M.=/IFz L /LESS/ 0 /THEN/ B.K /ELSE/ 5»K., 

YW</0/) .=YW(/0/)-R</O.M/)®C2.. 

220®* RI/O.M/) .=0.0.. 

/END/.. K.= K ♦ l . . 

/FOR/L.=K.1/STEP/1/UNTIL/T/DO/ 

/IF/FC(/N.L/)/LESS//-10 /THEN* 

YWI/N.L/I .=YW(/N.L/)-Rl </P.L.4/)*C? 

/END/ /ELSE* 

/BFGIN/ /FOR/ L . =0 ZSTFPZ 1 /UNTIL/ I /DO/ 

R(/P.L/> .=R1 (/P.L/) .. FPSE I/ 3 / ) . = 0 . * 

/END/ • . 

/FNO/ / ELSE/ 

230** /BFGIN/ EPSE(/P7) . =C 1 . =EPS»EC ( /P/ ) .. 

/FOR/ L . =0 /SIFP/ 1 /UNTIL* I *00/ R(/P.L/).= Ull/P.L/I.. 
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R(/P.0/> .=R(/P,0/) .Cl . . YW(/P/).= Cl»Y(/P/>.» 

FEND*., 

*ENO*.. 

AFNOAOF THE DETERMINATION OF hi. AND OF E. S AND EPS., 

AREGINAACOMMENTA 5. SOLUTION OF THE EQUATION Hl*YCORR=YW. WHERE 
H!=FPS*E*H, y«I = EPS*E»Y. THE SOLUTION IS OBTAINED 
USING THE SYMMETRIC CHOLESK 1 DECOMPOSITION. AND ITERATIVE 
240** IMPROVEMENT OF Y CORR BY THE RESIDUAL VECTOR METHOD. THE 

MATRIX HI. WHICH IS RLOK-TBIOI AGONAL AND POSITIVE 
DEFINITE. IS DECOMPOSED INTO L*0*L ( TRANSP ) » WHFRF D 
IS A DIAGONAL MATRIX AND L A LOWER TRIANGULAR UNIT 
MATRIX. HI IS STORED IN THE RIGHT HAND SIDE OF THE ARRAY 
P , L IN THE LEFT HAND SIDE. THE UNIT ELEMENTS OF L ARE 
NOT STORED. THE INVERSES OF THE ELEMENTS OF D ARE STORED IN 
ARRAY DC. DURING THF OFCOMPOS IT ION INTERMEDIATE RESULTS 
APE STOREO IN R2 . . 

250** AREAL* APROCFOURE* I N NERP RQD ( A.B . C . I . I 1 . 12. INDEX ) . . 

A V ACUE A “CVITTI 2VINDF X'. , AREAL* A.R.C., ^INTEGER* I . 1 1 , 1 2. I NDE X. , 

ABEGINA AREAL* C1,C2.C3,C4,C5,RFALMAXINT.NFA,NFB.. 

AINTFGERa M1,M2,M3.N1.N2.N3,R1»R2.R3.R4,S.MAXINT.. 

* I F A INDEX = 1 ATHENA 

APEGINA ACOMMENTA SINGLE PRECISION ACCUMULATION OF PRODUCTS., 
C1. = C., AFORA I. = 11 ASTEPA 1 AUNTILA 12 A DO A C1. = CI»A«B.. 
INNERPROD.= Cl 
AENOA. , 

AEMOA of procedure INNFRPROD., 

260** 

APROCEDUREA ALARM(A).. AVALUEA A., aREALA a., 

ABEGINA OUTPUT (41 ,A(A/,A(AMATRIX NOT POSITIVE DEFINITE*) A , 
2(»20B) .♦0.70A,22DBA)A, j, k. A>.. 

AENPA OF ALARM., 

ACOMMENTA 5.1. DECOMPOSITION Of HI INTO L«D»L (TRANSP) . » 

aeoraj.=oastepaiauntilancadoa 

APEGINAP.=AIFAJ=NCATHENA2*ELSEA5., 

I.aAIFA J=0 ATHENA 4 AELSEA 1., 

270** AFORA K.=0.1,2 ADOA 

APEGINA N.=3»J,K. , 

AFORA L.=K ASTEPA 1 AUNTILA PAOOA 
ABEGINA M.= N-K»L., 

0.=AIFA L ALFSSA 3 ATHENA K.4 AELSEA K*l.» 

C1.=R(/N,L»4/) .. 

C2 •=* IFA L ALFSSA 3 ATHENA 

-INNERPROU(R(/M,Q/l ,R2 </N,Q/ > t-Cl ,Q» I ♦ 3*K . 1 ) 

AELSEA(AIFA K = 0 ATHENA Cl AELSEA 
-INNERPROO(R(/M,Q/) ,R2(/N,0*3/) ,-C 1 ,Q. 1 »K , 1 ) ) . , 

2P0»* *IFAL=KATHENA 

APEGINAOC (/N/) • =C3.= 1 .0/C2. » 

AIFaC2ALESSaa-50aTHENAALARM(C2) 

AENOA AELSEA 

ABEGINA R(/M.O/l .=C2»C3.,R2(/M,0/) .=C? AENDA., 

AENDA OF L-CYCLF., 

AFNDA OF K-CYCLE.. 

AENDA OF J CYCLE. AT THIS STAGE HI HAS BEEN DECOMPOSED INTO 
L»0«L (TRANSP) ., 


14.15 HRS 
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/COMMENT/S. 2. COMPUTATION OF yw.. 

I.=3«NC«2.. 

XF0R/J.=q/STEP*1*UNT1LXI/D0/ YC09R(/J/I.= 0.0.. 

/COMMENT ZS . 3 . HACKSURST ITUTIONS AND ITERATIVE IMPROVEMENTS.. 

I.=0.. 

RETURN. . 

I.=I*1.«C1.=C10.=0.0.,CR.=1.0., 

/FOR/ J.=0 /STEP/ 1/UNTILXNCXOO/ 

XRFGINXN.=3*J.*M.=N-4., 

300** Q.=/IFXJXEQUAL*0/THFN/4XELSF*1 ., 

XFOR/K. =0.1.2*00/ 

/BEGIN/P.=N»K . ,0.=3*K. • 

YW(/P/1 . = -INNERPR00(R(/P.L/) .YM(/M*L/j .-Yl* (/P/1 .L.Q.O. 1 ) 

FEND/. . 

/END/.. 

/FOR/ J.-NC /STEP/" 1/UNT IL*OXDO* 

/BEGIN/ N* = 3* J. ,Q.=N-4. . 

M.=/IF/J/E0UAL/NC/THFN/6/FLSE/9.. 

ZFOR/K. =2. 1.0/00/ 

310** /PEGIN/P.=N»K. .0.=K*1 . , 

C2.=YW(/P/1 .=-INNERPR00(R (/0«L. X IFXL/GREATER/6/THENXO/ELSEX 
K ,4 / ) *YW(/0*L/) .-YW(/P/)*DC(/P/> *L.K*5.M.1> . . 

C3.=YCORR(/P/) .=YCORR </P/> »C2. . 

C4.=AHS(C3> . ./IFXC1XLESSXC4*ThFNXC1.=C4. , 

C7 . = A8S < C2 ) . ,xIF/C10/LFSS/C7/THEN/C10. = C7.. 

/COMMENT /5 .4 . THF NEXT SET STATEMENTS CONCERN ACCURACY TESTS. * 

X IFX IXGREATFRz 1 /THEN/ 

/BEGIN/CS.=.001/(/IF*EC(/h/)/LFSS//-10/THEN//-20/ELSE/EC(/P/I ) . 
320** XIF/CS/LESSXX-?0XTMEN/C5.=x-20.. C6.= C2*C2.. 

*IF/C5/LESS*/.7/AND/C6/GHEATEW/C5/THEN/ 

/BEGIN/CH.=-l .0. . /IF/ 1=20 /THEN/ 

OUTPUT (41 ,/<X/,8(«Z0H) .2 (.0.70/«ZZDR)/)/.J.K.C2.C3) ., 

ZEND* /ELSE/ 

/ IE/CSXGRE ATFPXZ *7/ AND*C /ZGREATERZTOL 1 *C4/AND/C7/GREATER*T0L2 
/THEN/ 

ZBEG1N/CH.--1 .0. . /IF/ 1=20 /THEN/ 

OUTPUT <41 .*(//. 2 (.ZDB) . 2 ( *0 . 7Dx *ZZPB> ,.ZDX)X«J.K,C2.C3.1).. 
ZEND/. . 

330** ZEND/ OF I GHEATFR 1 CONDITIONAL STATEMENT., 

ZFNO/ OF K CYCLE.. 

/END/ OF J CYCLE. AT THIS STAGE YCORR HAS BEEN DETERMINED.. 

OUTPUT (41, /(//./(/INFINITY NORM OF YCORR / 1 / , »D.7D/,ZZ08x > / »C1 > . 
OUTPUT (41,/ (//, /(/INFINITY NORM OF IMPROVEMENT VECTOR/!/, 

♦D.70/.ZZ0BX) X.C10) .. 

/IF/ I/C-RFATER/1 /anD/CB/GHFATEr/O .OXTHFN/*GOTO/SOLUTION DETERMINED. . 
/IF/I=1/THEN/CR.=-1 .0., 

340** /COMMENT/S. 5. DETERMINATION OF RESIDUALS., 

/F0P/J.=0/STEP/]/UNTIL/NC/DO/ 

XREGINX N.=3«J. ,M.=N-4. . 

Q. = /IF/J/EOUAL/0/THEN/4/ELSt'/l . . 

0.=XIFXJXEQUALXNCXTHENX6XELSEXB.« 

XFOR/K . = 0 » 1»2<00* 

/BEGIN/P. =N*K. . 

XIFXKMAX=l/THENX 
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350** 


360»* 


370** 


3B0»* 


390** 


400** 


t ■ 


FREGINFFINTEGERFR., 

FREALFFPROCEOUREFELEMENT OF R 1 ( L » . . FINTEGERF L.. 

ELEMENT OF R1 . = FIf FLFLESSF4FTHENF 
R 1 </M«L.K»7/) FELSEF ( F IEFLFLESSFK .4FTHENF 
R 1 < /M.L • K.4/ ) fELSEfRI 1/P.L/) > . . 

YW (/P/I .=-INNERPROO(YCORR(/M.L/) , 

FIFFEC (/P/)FGREATERFF-100F0RFEC(/M.L/> FGREATERFF-1 00 
FTHENF 0.0 FELSEF ELEMENT OF R1(L>» 
INNERPROO<YCORR</M.R/),F1EFEC(/P/)FLESSFF-100FANDF 
EC(/M*R/IFGREATERfF-100FTHENFELEMENT OF ri <r> felsefo.o, 
-EPSE (/P/» “ (Y t/P/)-YCORR(/P/l ).R.Q.O,l)»L. 0,0.1) 

FENOFFELSEF 

YW ( /P/ ) .=-INNERPROO<YCORfi(/M*L/> . 

FIFF L FLESSF 4 FTHENF R 1 (/M.L ,K ♦ 7/ ) 

FELSEF <FIFfi_FLESSF 4*KFTHENFR1 ( /M.L .4»K/) FF LSEFR 1 (/P.L/)) . 
-EPSE (/P/l *( Y(/P/) -YCORR (/P/) ) .L.Q.O. 1 ) 

• FENOF _ - ” 

FEND'F 'A T — T H I S STAGE THE RESIDUALS HAVE SEEN STORED IN YW.. 

FIFF C0 FLESSF 0 FANOF I FLESSF 7 FTHENF FGOTOF RETURN., 

F£NOF OF SOLUTION OF THE EQUATION HI *YCORR=YW. . 

SOLUTION DETERMINED.. 

KC .=KC ♦ l . , FGOTOFAGA IN . , 

READY.. KC . =KC . , 

FIFF KKC FLESSF KKMAX FTHENF FGOTOF ONCE MORE 1.. 

FENOF OF THE PROCEDURE SMOOTH THE VECTOR Y.. 

FPROCEOUREF INTERPOL ATE ( X ,K0 .K 1 ,K2,K 3. K4 «KS) . . FVAL.UEF X., 

FREALF X.» FINTEGERF KD, K1.K2.K3.K4.K5., 

FBE6INF FREALF X J.X JPE .XL , XR.OX ,C 1 .C2.C3.SUM . , 

FINTEGERF I.J.K.L.. 

FBOOLEANF A COMPUTED.. 

FREALF FARRAYf A1 (/ 1 . .6 , 3. .5/) .DCXI/1..5/) ., 

A COMPUTEO.=ICFGREATERFO. . 

FIFF ICFNOTGREATERFO FTHENF IC.=1.« 

XJPE.=XC(/IC/) ., XJ.=XC (/IC-l/l .. 

FcOMMENTF 1. DETERMINATION OF INTERVAL CONTAINING X., 

INTERVAL.. 

FIEF XJPE-XJFGREATERFOFTHENF 

FREGINF fief XJPEFGREATERFXFANDFXJFNOTGREATERFXFTHENFFGOTOFPROCEED 
FENOF FELSEF 

FREGINF FIEF XJPEFLESSFXFANOFXJFNOTLESSFXFTHFNF FGOTOF PROCEED 
FENOF., 

FIFF ICFEQUALF NC FTHENF 
FREGINF IC.=1.« XJ.=XC(/0/( .. 

XJPE.=XC</1/) 

FENOF FELSEF 

FREGINF IC.=IC*1.» XJ.=XJPE.»XJPE.=XC</IC/) 

FENOF., 

A COMPUTEO . = FFALSEF., FGOTOF INTERVAL., 

FCOMMENTF 2. COMPUTATION OF ARRAY Al AND OF A3.A4.A5., 

PROCEED.. 

FIEF FNOTF A COMPUTEO FTHENF 

FREGINF OX *=X JPE-XJ. , Cl .=C2 •= 1 ,0/DX • , 

FFORF I.=l FSTEPF 1 FUNTILF 5 FOOF 
FREGINF DCX(/I/).=C2.« C2.= C2»Cl 
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ZENO*., 

K.=3*IC-4., 

/FOR/ I. =3. 4. 5 /DO/ 

/RFGIN/ A 1 </4, 1/) ,=C3.= (2*1-5. < / IF/ I /EOUAL/SZTHEN/1 /ELSEZO > >« 
4 10** (-1.0)/PO/ER/(I-1)»OCX(/I/) 

A 1 </l,I/).=-C3.. 

A1 (/2.1/t .=C2.=(I-2>*<-1.0)ZPOWER*(I-2>*nCX(/I-l/) 

A 1 (/5.I/1 .=-(C3»OX*C2) ., 

A 1 1/3. I/) . =0. S» (-1. 0) /POWER/ ( 1-2) *0CX (/l-2/> 

A1 </6. t/> .=<I-3)*( I-4)*0.25*DCX</3/) 

ZEND/.. 

/FOR/ I. =3. 4, 5 /DO/ 

/BEGIN/ SUM.=0 • « 

/FOR/ L .= 1 /STEP/ 1 /UNTIL/ 6 *00/ 

420** SIJH • = SUM ♦ A 1 (/L.I/)*YCORR(/L»K/l ., 

/IF/ I/EUUAL/3 /THEN/ A3.=SUM /ELSE/ /IF/ I/E0UALZ4 /THEN/ 
A4.=SUH /ELSE/ AS.=SUM., 

*ENO/.» 

/END/.. 

/COMMENT* 3. COMPUTATION OF INTERPOLATED VALUES.. 

XL . = X-XJ.. XK. = X-XJPE. .K.=3*tC-<». . 

* IF/ KO/EOUAL/O /THEN/ 

YO.=YCORR (/K*l/> ♦XL*(YCORR(/K.2/)‘XL®(0.5»YCORR(/K»3/). 

430** XL*(A3.XR*(A4.XR*AS) I )) .. 

/IF/ K 1 /EQUAL* 1 /THEN/ 

Y1 .=YCORR(/K«2/) ♦ XL* ( YCORR ( /K .3/ ) «XL* 

(3.0*(A3.XR«(A4.XR®A5> ) «XL* ( A4»XR*2 . 0*A5 ) t > 

/IF/ K2/EOUAL/2 /THEN/ Y2 . =YC0RM ( /K » 3/ I »XL» (6.6* 
(A3.XR*<A4*XR*AS> ) .XL* <6 . 0* ( A4»2 .0*Xfl® AS ) *XL*2 .0* AS) ) .. 

/IF/ K3/EOUAL/3 /THEN/ 

Y3.=6.0*(A3.XL*(3.0*A4«XR*t).0®AS*XL*(3.0*AS) > »XP* ( A4.XR*A5) > . . 
/IF/ K4/EOUAL/4 /THEN/ 

Y4.=24.0® <A4* <2.0*XR*3.0*XL)*A5l .. 

440** /IF/ KS/EQUAL/S /THEN/ YS. = 120*At>. • 

/END* OF PROCEDURE INTERPOLATE.. 

/COMMFNT / main PROGRAM.. 

0UTPUT<41,/</*, /(/RESULTS OF PROGRAM T 32*t/./. 

/(/DATA INPUT TAPE NUMBER A/)/. .ZD/)/. 1C).. 

/FOR/ I.=0 /STEP/ 1 /UNTIL/ NC *00/ 

/BEGIN/ J.=3» I • . 

INPUT (40./(//)/.XC(/I/) «Y </J/> .Y (/J»l/) ,Y(/J.2/> > ., 

450»« OUTPUT (41. /<//..ZDB.4(»D. 70*. ZDH)/)/. 

I.XC(/!/> »Y(/J/> *Y</J.l/).Y(/J‘2/)).« 

/ENO*.. 

0UTPUT(41./(/«. /(/MODIFIED INPUT DATA/)//)/).. 

/FOR/ I.=0 /STEP/ I /UNTIL/ NC /DO/ 

/BFGIN/ J .=3® I . . 

Cl .=COS(Y </J*l/) I ... 

Y(/J»l/> .=SIN(Y(/J*1/) )/Cl .. 

Y(/J*2/) . = -Y </J*2/) /Cl /POWER/3. . 

OUTPUT (41,/ (//..ZDB,4( .0.70/.ZZQB) /) *. 

460*® I. XC (/!/) . Y(/J/), Y ( / J. 1/ ) , Y (/J.2/1 ) . , 

/END/.. 

SMOOTH THE VECTOR Y., 
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OUTPUT (91 ./(/»./ (/RESULTS Of THE SMOOTHING PROOF SbZ ) zz >/). , 

/FORE I.=0 /STEP/ 1 /UNTIL/ NC ZOO/ 

/BEGIN/ J./3*l., OUTPUT (91 , / ( / / , ♦20B*7 I ♦0.70/+ZZDR) Z ) ft 
I»XC(/I/) « YCORR (/J/> » YCORK < / J« 1/ ) . YCORR (/J/2/ > , 

YCORR ( /J/ > -Y (/J/) .YCORRI/J* l/l-r (/J. 1/1 . YCORP ( / J,2/ > -Y </J,2/> ) . , 
ZENOZ. . 

47 ( 1 ** 

OUTPUT < 4 l.X<*». <<<WESULTS OF INTEHPOLAT ION/ ) z / ) / ) . . 

IC.=0.. 

/FOR* I • = 0 ESTEP/ 1 /UNTILE NC-1 /DOE 
/BEGIN/ Cl.= (XC(/W/>-XC</l/> >/ft.O., 

/FOR / J. = 0 ESTEP/ 1 /UNTILE ft EDO/ 

/BEGIN/ C2 .= /IF / J /LESS/ ft /THEN/ XC(/I/)0*C1 ZELSF / ' 
XC(/I*l/>»( l.O-SIGNICl )»SIGN(XC(/I*l/> >*/-10) .. 

OUTPUT (41.E1/B/)/) . . INTERPOLATE IC2 » 0, 1 *2,3, 4, 5) « « 

OUTPUT (41 ,/(//,,ZOR« 7(,|).7DZ>ZZOB)Z) E»I,C2. Y0.Y1 ,Y?.Y3,Y4, Y5) . . 
4S0»» EENO/ 

ZENP/., 


OUTPUT (41»/<Z*»Z< /CORRECTED AEROFOIL SECTION/)/,/, 

/(/I, NEW VALUES. OL0 VALUES MINUS NEW VALUFSZ) //)/). , 

/FOR/ I • =0 ESTEP/ 1 /UNTILE NC ZOO/ 

ZRFGINZ J.=3«I.. 

OUTPUT (41 ./(//, /ZDS, 7 < *D.70/*ZZ0b)/)/, 

I* XC(/I/)« YCOHR(/J/l, ARCTAN(YCORR(/J*l/) ) , 
-YC0RR(/J*2/)/( ( 1,0*YCORR(/J»1/) /POWER/2) EPOWFR/1 .5) , 

490*/ Y (/J/) -YCORR (/J/) . 

ARCTAN(Y(/J*l/> ) -ARCTAN( YCORP (/J, 1/1 ) . 

-Y </J»2/)/ ( <1 ,0«Y(/J* 1/1 /POWER E2) EPOWF.H/1 .S) 

♦YCORR (/J*2/)/< (1 ,0«YCOBR</J*l/> /POWER /2) /POWER/ 1 .5) ) .. 
ZEND/., 

1C.=0., 

0UTPUTI41 ,/(///,/(/ END OF RESULTS of PROGRAM T 32 /)//)/)., 
/GOTO/ START OF PROGRAM., 

ZENO/ OF BLOK 2., 

S00«* RUNS COMPLETED.. NC.=NC.« 

/END/ 

ZEOPZ 


14.15 HRS 


SMOOTH 

46b 

SMOOTH 

467 

SMOOTH 

468 

SMOOTH 

469 

SMOOTH 

470 

SMOOTH 

471 

SMOOTH 

472 

SMOOTH 

473 

SMOOTH 

474 

SMOOTH 

47S 

SMOOTH 

476 

SMOOTH 

477 

SMOOTH 

478 

SMOOTH 

479 

SMOOTH 

480 

SMOOTH 

401 

SMOOTH 

482 

SMOOTH 

483 

SMOOTH 

484 

SMOOTH 

48S 

SMOOTH 

486 

SMOOTH 

487 

SMOOTH 

488 

SMOOTH 

489 

SMOOTH 

490 

SMOOTH 

491 

SMOOTH 

492 

SMOOTH 

493 

SMOOTH 

494 

SMOOTH 

49S 

SMOOTH 

496 

SMOOTH 

497 

SMOOTH 

498 

SMOOTH 

499 

SMOOTH 

500 

SMOOTH 

SOI 

SMOOTH 

502 

SMOOTH 

503 

SMOOTH 

504 
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ALGOL-60 PSR302 

♦OCI 

XXALiiOL 


11/07/72 10.15 HRS PAGE 

LINE 

0 

PROGRAM HEGI*5 

(MESSAGE) 


LINE 

501 

program ends 

(MESSAGE) 


LINE 

501 

soupcf nee* enos 

(MESSAGE) 

1 

LINE 

OS 

non-format 

STRING 

(MESSAGE) 

1 

LINE 

05 

non-format 

SIRING i 
STRING 

(MESSAGE) 


LINE 

OR 

non-fopmat 

(MESSAGE) 

1 

LINE 

oa 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

09 

. NON-FORMAT 

STRING 

(MESSAGE) 

I 

L INE 

09 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

09 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

51 

NON-FORMAT 

STRING 

(MESSAGE) 


LINE 

51 

NON-FORMAT 

STRING 

(MESSAGE) 

1 

LINE 

51 

NON-FORMAT 

STRING 

(MESSAGE) 


LINE 

53 

NON-FORMAT 

STRING 

(MESSAGE) 


LINE 

5 3 

nOn-FORMAT 

STRING 

(MESSAGE) 

1 


THE FOLLOWING CONTROL CARO OPTIONS ARF ACTIVE F.I.L 


L. 


I 

I 
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